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^VISION 249 CF AQC PROGRAM COLOSSUS SY NASA 2021111-041 


20*35 OCT. 28,1968 PAMX3RA .080 PAGE 693 


L| PS 1 -PS 3 

R0001 PROGRAM NANB- PROG52 

R0003 M® NO- 2 

R0005 MODIFICATION BY- LCNSKB 


USEFL.S PAGE NO. 1 Bo 84 

DAW- ROY 30, 1988 
LOG SECTION- PS1-P53 
ASSEMBLY- SNOISK HEY 30 


R000T FUNCTIONAL DESCRIPTICN- 


R0008 ALIGNS THE IMJ TO CNE OF THREE ORIENTATIONS SELECTS) BY THE ASTRONAUT. THE PRESENT MJ ORIENTATION IS KNOWN 

R0010 AND IS STORED IN REFS'MAT. THE THREE POSSIBLE ORIENTATIONS MAY BE 



Roan (A) preferred orientation 

R0012 an OPTIMUM ORIENTATION FOR A PREVIOUSLY CALCULATE) MANUEvER. THIS ORIENTATION MUST BE CALCULATED AND 

ROOM STORED BY A PREVIOUSLY SELECTS) PROGRAM. 

R0015 IB) NOMINAL ORIENTATION 

R0016 X = INITNY X Z > 

R001T ' -EM -»! -SM 

R0018 X = UNITCV X R) 

R0019 -SM - 

R0020 Z = INITI-R) 

R0021 -SM 

R0022 WHERE 

R0023 ■ R = THE GEOCENTRIC RADIUS VECTOR AT TIME Tt ALIGN) SELECTED BY THE ASTRONAUT 

R0025 


R0026 V r THE INERTIAL VELOCITY VECTOR AT TIME T( ALIGN) SELECTS) BY THE ASTRONAUT 

R0028 

R0029 (C) refsmmat orientation 

R0030 THIS SELECTION CORRECTS THE PRESENT IMU ORIENTATION. THE PRESENT ORIENTATION DIFFERS FROM THAT TO WHICH IT 

R0032 WAS LAST ALIGNS) ONLY DUE TO GYRO DRIFT! I.E. NEITHER GMML LOCK NOR 1MJ POWER INTERRUPTION HAS OCCURED 

R0034 SINCE THE LAST ALIGNMENT) . 

R0035 AFTER A IMU ORIENTATION HAS BEEN SELECTS) ROUTINE S52.2 IS OPERATS) TO COMPUTE THE GIMBAL ANGLES USING THE 

R003T NBW ORIENTATION AND THE PRESENT VEHICLE ATTITUDE. CAL 52 A THEN USES THESE ANGLES, STORED IN THETAD,+i,+2, TO 

R0039 COURSE ALIGN THE IMU. THE STAR SELECTION ROUTINE, R 56 , IS THEN OPERATED. IF 2 STARS ARE NOT AVAILABLE AN ALARM 

A0041 IS FLASHED TO NOTIFY THE ASTRONAUT. AT THIS POINT THE ASTRONAUT WILL MANUEVER THE VEHICLE AND SELECT 2 STARS 
R0043 EITHER MANUALLY OR AUTOMATICALLY. AFIER 2 STARS HAVE BEEN SELECTED THE IMU IS FINE ALIGNED USING ROUTINE R 51 . IF 
R0045 THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING! INDICATED BY KNDvzFLG) P 20 IS DISPLAYED. OIHEBWJSE Poo IS 
R004T REOlBSTED. 


R0048 CALLING SEQUBNC 8 - 

R0049 THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY. 





\ 






ASSFMME HEVISION 249 QP AQC PROGRAM COLOSSUS BY RASA 2021111 m, 

^ 2021*11-041 20*35 OCT. 28,1958 PANDORA .080 PACE 994 

PS1-P53 

U®R»S PACE NO. 2 Bo S4 


SUSROUTINES CALLED- 


1. FIACDOWN 

2. H02BO3H 

3. GOPBRP4 

4. MA1MO/E 

5. OOFLASH 
5. S52.3 


T. S52.2 

8. CAL53A 

9 . FLAGUP 

10. R56 

11. B51 

12. QOPERF3 


13. NRwaoex 

14. PRIOLARM 


normal exit mcdes- 
exits to endopjob 
alarm or abort exit mcdbs- 

NCNE 

ourpur- 


THE PaiXWINO MAY BE FLASHED CN THE DSCY 

1. IMU ORIENTATION CCDE 

2. ALARM CODE 215 -PREFERRED If4j ORIENTATION NOT SPECIFIED 

3. TIFE OP NEXT IGNITION 

4. OIFBAL ANGLES 

5. ALARM CODE 405 -TWO STARS NOT AVAILABIE 

6. PLEASE PERFORM p 0 o 

THE MCDE DISPLAY MAY BE CHANGED TO 20 


ERASABLE INITIALIZATION REOJIRED- 


mSBT IFA PRBPKRRm WIENWTICN HAS been COWTOD.IE IT has BERN CCMPUKD IT Is STORED IN 
RNDviFLG INDICATES WHETHER THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING. 

DEBRIS- 


WORK AREA 


REP 

3 

LAST 

209 

15,2000 



P54 

- 

PROG52 





33,3772 




BANK 

33 

REP 

1 



15,2000 




sbtloc 

P50S 





15,2000 




bank 


REP 

4 

LAST 

450 

30,2000 




SBANKr 

LOW SUPER 

REP 

DPP 

7 

LAST 

446 

E5,1773 




ERANK= 

SAC 

nCr 

1 







CQJNT 

15/P52 

REP 

63 

LAST 

683 

15,2000 

0 5301 

0 

PROG52 

TC 

PHASCHNG 





15,2001 

00254 

1 


OCT 

00254 

REP 

40 

LAST 

690 

15,2002 

0 5447 

0 


TC 

DOWNFIAG 

REP 

19 

LAST 

639 

15,2003 

00027 

1 


ADHES 

UPDATFLG 


BIT T FLAG 1 


I 
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L P51-PS3 USBR.S PAGE NO. 3 ft S3 


•088 

HEP 

47 

LAST 

694 

15,2004 

0 5447 

0 


TC 

DOWNFLAG 


00885 

REP 

7 

LAST 

639 

15,2005 

00031 

0 


ADRBS 

TOACKFLG 

BIT 5 PLAG 1 

0089 

HEP 

173 

LAST 

661 

15,2006 

0 4555 

0 


1C 

BANKCALL 


•090 

HEP 

6 

LAST 

647 

15,2007 

17573 

0 


CADR 

R02BODL 

RAJ STATUS CHECK 

•091 

HSP 

30 

LAST 

689 

15,2010 

3 4707 

0 


CAP 

BIT4 


0092 

HEP 

37 

LAST 

629 

15,2011 

7 0076 

1 


MASK 

STATE +2 

IS PPRATPLG SETC PREFERRED ORIENTATICN) 

0093 

HEP 

164 

LAST 

690 

15,2012 

10 000 

0 


CCS 

A 


0094 

HEP 

1 



15,2013 

0 2016 

1 


TC 

P52A 

YES 

0095 

REP 

31 

LAST 

688 

15,2014 

3 4711 

1 


CAP 

BIT2 

NO 

0096 

REP 

2 

LAST 

695 

15,2015 

0 2017 

0 


1C 

P52A *1 


0097 

REP 

53 

LAST 

690 

15,2016 

3 4712 

1 

P52A 

CAP 

BITl 


0098 

HEP 

8 

LAST 

550 

15,2017 

55«132 

1 


TS 

OPTICN2 


0099 

REP 

54 

LAST 

695 

15,2020 

3 4712 

1 

P52B 

CAP 

BITl 


0100 

REP 1T4 

LAST 

695 

15,2021 

0 4555 

0 


TC 

BANKCALL 

PLASH OPTICN CCDE AND ORIENTATICN CODE 

•101 

REP 

1 



15,2022 

21041 

1 


CADR 

GOPERP4R 


•102 

HEP 

42 

LAST 

648 

15,2023 

0 4106 

1 


TC 

GOTOPOCH 


0103 





15,2024 

0 2031 

1 


TC 

+5 


0104 

HEP 

1 



15,2025 

0 2020 

1 


TC 

PS2B 

NEW CCDE - NEW ORIENTATICN CCDE INPUT 

0105 

HEP 

64 

LAST 

694 

15,2026 

0 5301 

0 


TC 

FHASCHNG 


0108 





15,2027 

00014 

1 


OCT 

00014 


0107 

HEP 

91 

LAST 

683 

15,2030 

0 5112 

0 


TC 

ENDOPJCB 


0108 

HEP 

9 

LAST 

695 

15,2031 

3 1132 

0 


CA 

0PTICN2 


0109 

HEP 

24 

LAST 

690 

15,2032 

7 8214 

1 


MASC 

THREE 


0110 

HEP 

165 

LAST 

695 

15,2033 

50 000 

1 


INDEX 

A 


0111 





15,2034 

0 2035 

0 


TC 

+1 


0112 

HEP 

1 



15,2035 

0 2041 

0 


TC 

P52T 

L.S. 

0113 

REP 

1 



15,2036 

0 2110 

0 


TC 

P52J 

PREF 

0114 

HEP 

2 

LAST 

695 

15,2037 

0 2041 

0 


TC • 

PS2T 

NCM 

0115 

REP 

1 



15,2040 

1 2120 

1 


TCP 

PS 2 C 

REF 

0116 





15,2041 

0 0006 

1 

P52T 

EXTEND 



OUT 

HEP 

13 

LAST 

652 

15,2042 

3 4714 

1 


DCA 

NEGo 


0118 

Hap 

32 

LAST 

518 

15,2043 

53*046 

0 


DXCH 

DSPTEMl 


0119 

HEP 

1 



15,2044 

3 2155 

1 


CAP 

V06N34 


•120 

HEP 

175 

LAST 

695 

15,2045 

0 4555 

0 


TC 

RANkCAU. 


•121 

HEP 

28 

LAST 

648 

15,2048 

20624 

0 


CADR 

GOFLASH 


•122 

HEP 

43 

LAST 

695 

15,2047 

0 4106 

1 


TC 

GOTOPOCH 


0123 





15,2050 

0 2052 

1 


TC 

*2 


•124 





15,2051 

0 2044 

0 


TC 

-5 


012S 





15,2052 

0 0006 

1 


EXTEND 



•128 

HEP 

33 

LAST 

695 

15,2053 

3 1046 

1 


DCA 

DSPTEMl 


0127 





15,2054 

0 0006 

1 


EXTEND 



0128 





15,2055 

1 2057 

0 


BzP 

+2 


0129 





15,2056 

1 2062 

0 


TCP 

+4 


•130 





15.205T 

0 0006 

1 


EXT®® 



0131 

REP 

24 

LAST 

659 

15,2060 

3 0025 

0 


DCA 

TIME2 


•132 

REP 

34 

LAST 

695 

15,2061 

53*046 

0 


DXCH 

DSPTEMl 


0133 

HEP 

10 

LAST 

695 

15,2062 

3 1132 

0 


CA 

OPT I OS 2 


0134 

HEP 

32 

LAST 

695 

15,2063 

7 4711 

0 


MASK 

BIT2 


0135 

HEP 

166 

LAST 

695 

15,2064 

10 000 

0 


CCS 

A 







I 
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L 


0136 

013T 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 
014T 

0148 

0149 

0150 

0151 
0152. 

0153 

0154 

0155 

0156 
015T 
0156 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 
016T 
0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 
0183 

0196 

0197 


PS1-P53 

REP 157 LAST 683 
REP 1 
REP 1 

REP 158 LAST 696 
REP 35 l A ST 695 
REP 1 
REP 1 
REP 1 

REP 176 IAST 695 
REP 29 LAST 695 
REP 44 LAST 695 

REP 159 LAST 896 

REP 2 LAST 696 
REP 160 LAST 696 

REP 1 

REP 5 tAST 611 
REP 1 

REP 177 [AST 696 
REP 3 LAST 641 
REP 45 LAST 696 

• REP 1 

REP 181 LAST 696 

REP 19 LAST 612 
REP 1 

REP 1 

REP 178 LAST 696 
REP 1 
REP 1 

REP 162 LAST 696 

REP 2 LAST 209 

REP 46 LAST 696 
REP 27 LAST 678 


15.2065 

15.2066 
15,2087 

15.2070 

15.2071 

15.2072 

15.2073 

15.2074 

15.2075 

15.2076 

15.2077 

15.2100 

15.2101 

15.2102 

15.2103 

15.2104 

15.2105 

15.2106 

15.2107 

15.2110 

15.2111 

15.2112 

15.2113 

15.2114 

15.2115 

15.2116 

15.2117 

15.2120 

15.2121 

15.2122 

15.2123 

15.2124 

15.2125 

15.2126 

15.2127 

15.2130 

15.2131 

15.2132 

15.2133 

15.2134 

15.2135 

15.2136 

15.2137 

15.2140 

15.2141 

15.2142 

15.2143 

15.2144 

15.2145 

15.2146 


1 2073 
0 6008 
77624 
34508 
77650 
32100 
0 6006 
77745 
01046 
77824 
34636 
77624 
22258 
77776 
3 2156 
0 4555 
20624 
0 4106 
0 2113 
0 6008 
77650 
32100 
0 6006 
77624 
30756 
77414 
01462 
3 4720 
0 4555 
20751 
0 4106 
0 2126 
0 2140 
0 6006 
43234 
45505 
32176 
77624 
30216 
77776 
0 4555 
30324 
0 2145 
0 6006 
77824 
30523 
77776 
0 4106 
0 5537 
00405 


0 

1 : 

1 

0 

1 
1 
1 
1 
1 
1 

0 

1 P52D 
0 

1 

1 

0 

0 

1 

0 

1 P52J 
1 


P52C 


♦6 

INTPRET - 


TCP 
: TC 
CALL 

P52LS 

GOTO 

P52D 

TC INTPRET 
DLQAD 

DSPTB41 

CALL 

352.3 

352.2 

VB06N22 
RANKCALL 

gcflash 
ootopoch 

*4 

INTPRET 


CALL 

Exit 

cap 

ic 

CADR 

TC 

TC 

TC 

GOTO 

TC 

CALL 

SET 

CAP 
■ TC 
CADR 
TC 
TC 
TC 
TC 
RTS 


P52E 

P52P 

ENDP50S 

P52I 


CALL 

EXIT 
TC • 
CADR 
1C • 
TC 

CALL 

EXIT 

TC 

TC 

OCT 


P52P 

INTPRET 

CAL53A 

EXIT 

HBPS4PLG 

ALHM15 

BANKCAIL 

GOPERPi 

GOrOPOCH 

+2 

P52P 

INTPRET 

DAD 

LQADTOB 

Tsianr v: 

LOCSAM 

BANKCALL 

PICAPAR 

P52l 

INTPRET 

R51 

GOICPOCH 

alarm 

405 


20*35 OCT. 28,1988 PANDORA .080 PACE 696 
UffiR»S PACE NO. 4 E5|S3- ■, 

N0M 
LS 


COMPUTE NOMINAL IMJ 
ORIENTATION 

READ VEHICLE ATT ITT YE AND 
COMPUTE GINBAL ANGLES 


DISPLAY GlfBAL ANGLES 
PROCEH3 

RECYCLE- VEHICLE HAS BEEN MENUEvERED 


DO COARSE ALIGN 
ROUTINE 




V33 

E 


DO STAR SELECTION 

2 STARS NOT AVAILABLE 
2 STARS AVAILABLE 



20*35 OCT. 28,1968 PANDORA .080 PA® 89T 


ASSH-BLE REVISICN 249 ® AGC PROGRAM COLOSSUS BY NASA 2021111-041 


P51-P53 


USBRoS PA® NO. 


REF 3 LAST 551 
REF 179 LAST 696 
REF 30 LAST 896 
REF 47 LAST 696 
REF 2 LAST 696 
REF 2 LAST 895 


15.214T 3 4743 0 

15,2150 0 4555 0 


15.2151 20824 0 

15.2152 0 4108 1 


15.2153 0 2140 0 

15.2154 0 2120 0 


01442 1 V06N34 

01428 0 VB06N22 


ALfWl5 


15.2155 01442 1 V06N34 

15.2156 01428 0 VB06N22 

REP 2 LAST 153 4720 ALiWlS 

REP 1 16,2000 

16,2505 

16,2505 01531 1 V06N89* 

NAME-P52LS 

FLNCTICN - TO DISPLAY WE LANDING SITE LATIHX®, 

LCNGrntf* and alt hide. to accept new data via 
the KEYBOARD, to compute the landing site 

ORIENTATION FOR P52 OR P54 


01531 1 V06N89* 


CAP 

TO 

CADR 

TO 

TO 

TO 

VN 

VN 

EOJALS 

ffiTLOC 

bank 

VN 


V05N09 
bankcall 
G0FLASI 
GOTOPOH 
PS2F 
PS 2C 
00634 
00622 
OCT15 
P50S2 


PROCEH3 - DO FINE ALIGN-R51 
RECYCLE- VEHICLE HAS BEEN MANUBVERED 




LET’ 

RLS = LANDING SITE VECTOR IN REP COORDINATES 
R - CSM POSITION VECTOR IN REF COORDINATES 

V r CS4 VELOCITY VECTOR IN REP COORDINATES 

THEM THE LANDING SITE ORIENTATION IS’ 

XSKO = UNIT! RLS) 

YSM) s UNITIZSMD+XS®) 

ZSM5 = UNTT<(R*V>*RLS> 

CALL - CALL 

P52LS 

INPUTS- DSFn34l=TIMB ® Af,IGM>fMT 

RLS=LANDING SITE VECTOR IN MOCN FIXED COORINATES 
OUTPUTS- XS'B,Y»B,ZSOT 

SUBROUTINES- RP-TO-R , [AT-LCNO , LLASRD , UA SRDA , C S-fPREC 
DEBRIS- VAC, SEE SUBROUTINES 


0232 





16,2506 

43020 

1 

0233 

REF 

2 

LAST 

70 

16,2507 

00300 

1 

0234 

REF 

16 

LAST 

621 

18,2510 

01463 

1 

0235 





16,2511 

77745 

1 

0236 

REP 

36 

LAST 

696 

16,2512 

01046 

1 

0237 

REP 

2 

LAST 

91 

18,2513 

02607 

1 

0238 





16,2514 

43175 

0 

0239 

REF 

7 

LAST 

599 

16,2515 

02026 

1 

0240 

REF 

7 

LAST 

635 

16,2516 

00462 

1 

0241 





16,2517 

14001 

0 

0242 

REP 

3 

LAST 

697 

16,2520 

02607 

1 

0243 





16,2521 

34007 

1 

0244 

REF 

3 

LAST 

596 

16,2522 

55341 

1 

0245 





18,25 23 

77742 

0 

0246 

REF 

8 

LAST 

618 

18,2524 

16152 

0 

0247 

REP 

4 

LAST 

697 

16,2525 

02607 

1 


ffiT 

CMAJ 

LUNAFIAG 


DSPIB41 

TSI®T 

set 

RLS 

ERADFLAG 

0D 

TSICBT 

60 

RP-TO-R 


ALPHAV 

TSICHT 


I 
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0248 

0249 

0252 

0253 

0254 

0255 

0250 
025T 

0258 

0259 
0280 
0281 
0282 

0283 

0284 

0265 

0266 
026T 
0268 
0269 
02TO 
02T1 

0272 

0273 

0274 

0275 

0276 

0277 
0276 

0279 

0280 
0281 
0282 

0283 

0284 
R0285 


4 LAST 
2 LAST 


599 


599 


1 


REP 180 LAST 
hep 31 LAST 
RH' 48 LAST 


697 

697 

697 


163 LAST 
3 LAST 


696 

614 


16,2528 

16,2527 

16.2530 

16.2531 

16.2532 

16.2533 

16.2534 

16.2535 

16.2536 

16.2537 

18.2540 

16.2541 

16.2542 


77624 1 
26322 0 
T7624 1 
61336 0 
77776 1 
3 25 0 5 0 
0 4555 0 
20624 0 
0 4106 1 
0 2541 0 
0 2533 0 
0 6006 1 
77624 1 


CALL 

CALL 


20‘35 OCT. 28,1968 PANDORA .080 PACE 698 
USERaS PACE NO. 6 Bs S3 


LAT-LCNG 


LSDISP 


exit 

cap 

TC 

CADR 

TC 

TC 

7C 

TC 

CALL 


LLAsaD 


V0BN89* 

BANKCALL 

OOPLASM 

OOTOPOCH 

*2 

LffilSP 

INTPRBT 


5 LAST 
5 LAST 


897 

635 


9 LAST 
3 LAST 
6 LAST 
38 LAST 
5 LAST 


697 

71 

898 

668 

598 


22 LAST 
18 LAST 


668 

668 


4 LAST 
2 LAST 


698 

71 


RHP 


LAST 

LAST 

LAST 


698 

71 

697 


kaje- automatic 


16,2543 

61345 1 


LLASHDA 

16,2544 

45145 0 

DLOAD 

CALL 

16,2545 

02607 1 


TSIGHT 

16,2546 

26373 1 


LALOTORV 

18,2547 

53575 0 

VT-OAD 

UNIT 

16,2550 

02152 0 


ALFHAV 

16,2551 

14307 0 

STODL 

X9® 

16,255 2 

02807 1 


TSIGHT 

16,2553 

34041 0 

STCALL TDBCi 

16,2554 

27022 1 


CSMPRBC 

16,2555 

47375 0 

VLCWD 

vxv 

16,2556 

00001 0 


RATT 

16,2557 

00007 0 


VATT 

16,2560 

53435 0 

vxv 

UNIT 

16,2561 

00307 0 


XS® 

16,2562 

00323 0 

STORE 

ZS® 

16,256 3 

53435 0 

vxv 

UNIT 

16,2564 

00307 0 


XS® 

16,2565 

34315 1 

STCAU, YS® 

16,2566 

00300 1 


0MAJ 

14,2000 


SBTLOC P 50 S 1 

14,2002 


bank 




*•1 


R0286 

R0288 


R0290 


is: s S5 s ss B s s si s « *»■ 

CALL IMO SEQUENCE- CALL R52 


R0291 

R0292 

R0293 

R0294 

R0295 


R0296 


INPUT- 1 . TARGiFLG AND TARG 2FLG- PRESET BY CALLER 
2. RNDVZFLG AND TRACK FU3- PRESET BY CALLER 

3- STAR CODE- PRESET BY CALLER. ALSO INPUT THROUGH DSKY 

4- LAT, LOW AND ALT OP LANDMARK- INPUT THROUGH DScY 
5. NO. OP marksimarkindx)- PRESET BY CALLER 

aimrr- 


drive shaft and TRUNNION CDUS 





efcf 1 assemble revisicn 2*9 op aoc program colossus by nasa 2021111-041 

L PS 1 -PS 3 

R0297 SlPROUTINES- 1. FIXDELAY T. CLEANDSP 

R0298 2. OOPERFl 8. OCDSPR 

R0299 3. OCFLASH 9. REFLASHR 

R0300 4. R53 10. R52.2 

R0301 S. ALAiW 11. H52.3 

R0302 8. SR52.1 


20’3S OCT. 28,1968 PANDORA .080 PACK ■ 699 
USER. 3 PACK NO. T E5 S3 


0303 

REP 

1 






COUNT 

I5/R52 

0304 





14,2002 

43020 1 

R52 

STQ 

clear 

0305 

REP 

2 

LAST 

91 

14,2003 

02576 1 



SAVQR52 

0306 

REP 

1 



14,2004 

04265 1 



AWTRK 

030T 





14,2005 

77776 1 

RS2VRB 

exit 


0308 





14,2006 

0 0006 1 


EXTEND 


0309 

REP 

8 

LAST 

500 

14,2007 

3 0036 1 


DCA 

CDUT 

0310 

REF 

8 

LAST 

446 

14,2010 

53*161 1 


DxCH 

DESOPTT 

0311 

REF 

164 

LAST 

698 

14,2011 

0 6006 1 


1C 

INTPRET 

0312 





14,2012 

43131 0 


SSP 

clear 

0313 

REP 

25 

LAST 

686 

14,2013 

01304 1 



optind 

0314 





14,2014 

00000 1 



0 

0315 

REF 

1 



14,2015 

00271 0 



R53FLAG 

0316 





14,2018 

77776 1 


EXIT 


0317 

REF 

165 

LAST 

699 

14,2017 

0 6006 1 

R52A 

TC 

INTPRET 

0318 





14,2020 

43014 0 


SET 

BCN 

0319 

REF 

1 



14,2021 

00073 0 



TRJNPIAO 

0320 

REF 

4 

LAST 

610 

14,2022 

00705 0 



TARGlPld 

0321 

REP 

1 



14,2023 

30103 0 



R52H 

0322 





14,2024 

77414 0 


CLEAR 

EXIT 

0323 

REP 

1 



14,2025 

03660 1 



TBfMIFLG 

0324 

REP 

8 

LAST 

238 

14,2026 

3 1314 0 

R52C 

CA 

94 SAMPLE 

0325 





14,2027 

0 0006 1 


EXTEND 


0326 

REF 

1 



14,2030 

6 2131 0 


BZMF 

R52M 

0327 

REP 

101 

LAST 

898 

14,2031 

0 4555 0 

R52D 

TC 

BANKCALL 

0328 

REP 

1 



14,2032 

26176 0 


CADR 

SR52.1 

0329 

REP 

1 



14,2033 

1 2161 1 


TCP 

R52L 

0330 

REF 

1 



14,2034 

1 2124 0 


TCP 

R52J 

0331 

REP 

43 

LAST 

663 

14,2035 

0 5435 0 


1C 

UPFLAG 

0332 

REP 

2 

LAST 

699 

14,2036 

00013 0 


ADRES 

TRUNFLAG 

0333 

REF 

29 

LAST 

689 

14,2037 

3 4701 0 

R52JA 

CAP 

BIT10 

0334 

REF 

30 

LAST 

695 

14,2040 

7 0075 1 


mask 

state +1 

0335 

REF 

167 

LAST 

695 

14,2041 

10 000 0 


CCS 

A 

0336 

REF 

1 



14,2042 

0 2052 1 


TC 

R52E 

0337 

REF 

33 

LAST 

550 

14,2043 

3 4705 1 


CAP 

bits 

0338 

REF 

39 

LAST 

699 

14,2044 

7 0074 0 


MASK 

STATE 

0339 

REF 

168 

LAST 

699 

14,2045 

10 000 0 


CCS 

A 

0340 

REF 

2 

LAST 

699 

14,2046 

1 2052 0 


TCP 

R52E 

0341 

REP 

1 



14,2047 

3 2151 0 


CAP 

VO6N92 

0342 

REP 

182 

LAST 

699 

14,2050 

0 4555 0 


TC 

RANKCALL 

0343 

REF 

2 

LAST 

384 

14,2051 

20602 1 


CADR 

GCDSPR 

0344 

REP 

9 

LAST 

699 

14,2052 

3 1314 0 

RS2E 

CA 

34 SAMPLE 


IS OPTICS MODE IN AGC 

MANUAL 

AGC 

GR 90 DEGREES 
OR so DEGREES 
LS 50 DEGREES 

set TRUNFLAG BIT 4 FLAG 0 
IS THIS A LEM 


YES 

NO, IS R53FLAG SET 


YES 

NO 


IS OSS IN CMC MODE 
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L P51-P53 




0345 

0346 
034T 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 
. 0350 

035T 

0358 

0359 

0360 
0381 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 


REP 40 LAST 899 
REP 31 LAST 695 
REP 169 LAST 699 


HEP 
REP 
REP 
HEP 
REP 
REP 183 
HEP io 
REP 30 
HEP 41 
REP 170 
HEP i 
REP 35 
REP 42 


LAST 446 
LAST 699 
LAST 694 
LAST 446 
LAST 527 
LAST 699 
LAST 643 
LAST 699 
LAST 700 
LAST 700 

LAST 689 
LAST 700 


REP i 

REP 166 LAST 699 

REP 3 LAST 699 

REP 184 LAST 700 
REP 2 LAST 554 
REP 43 LAST 700 
REP 31 LAST 611 
# 

REP i 


03751 

REP 

44 

LAST 

700 

03752 

REP 

41 

LAST 

689 

03753 

REF 

171 

LAST 

700 

03754 

REP 

1 



0376 

REF 

45 

LAST 

700 

0377 

REF 

31 

LAST 

700 

0378 

REP 172 

LAST 

700 

0379 

REP 

1 



0380 

REF 

1 



03801 

REF 

Z 

LAST 

700 

0381 

REF 

48 

LAST 

695 

0382 

REF 

3 

LAST 

699 

0383 

REF 

28 

LAST 

696 

0384 





0385 

REF 

1 



0386 

REF 

34 

LAST 

699 


14.2053 

14.2054 

14.2055 

14.2056 

14.2057 
14,2080 
14,2061 
14,2082 

14.2063 

14.2064 

14.2065 
14,2086 
14,2067 

14.2070 

14.2071 

14.2072 

14.2073 

14.2074 

14.2075 

14.2076 

14.2077 

14.2100 

14.2101 

14.2102 

14.2103 

14.2104 

14.2105 

14.2106 

14.2107 

14.2110 

14.2111 


0 0006 

6 2065 
4 0074 

7 4707 
10 000 
0 2063 
3 1775 
5S«160 
3 1773 
55*161 
3 4731 

0 4555 
01732 

3 4701 
7 0075 
10 000 

1 2104 
3 4674 
7 0103 
0 0006 
1 2026 
0 6006 

77650 

02576 

77776 

0 4555 
76538 

3 0075 
7 4706 
0 0006 

1 2100 


R52P 


RS20 


R52H 

R52HA 


14.2112 4 0075 1 

14.2113 7 4704 1 

14.2114 10 000 0 

14.2115 1 2122 0 


14.2116 

14.2117 

14.2120 

14.2121 

14.2122 

14.2123 

14.2124 

14.2125 

14.2126 

14.2127 

14.2130 

14.2131 


3 0101 1 
7 4701 1 
10 000 0 

0 2031 1 
3 2175 0 

1 2068 1 


0 5447 
00013 
0 5537 
00407 
0 2037 
3 4705 


R52I 


R52SWC 


R52J 


R52M 


EXTEND 
B2WP R52P 


CS 

mask 

CCS 
TC 
CA 
TS 
CA 
TS 
CAP 
TC 
CADR 
CAP 
MASK 
CCS 
TCP 
CAP 
MASK 
EXTEND 
BZP R52C 
TC 

GOTO 


state 

BIT4 

A 

♦3 

PAC . 

DBSOPTT 

SAC 

DE SOFTS 
.5 SEC 
BANKCALL 
DELAYJCB 

BIT10 

STATE +1 
A 

R52H4 
BIT15 
STATE +7 


INTPRET 

SAVQR52 


exit 

TC 

CADR 
CA 

MASK 
extend 

BZP R520 


BANKCAU, 
R61CS4 
STATE ♦! 
BITS 


CS 

mask 

CCS 

TCP 

CA 

MASK 

CCS 

TC 

CAP 

TCP 


STATE +i 

BIT7 

A 

R52SYNC 

STATE +5 

BIT10 

A 

R52D 
1 .8SEC 
R52P +1 


TC DCWNFIAG 
ADRES TKNFLAG 
ALA PM 
407 
R5 2JA 
BIT6 


TC 

OCT 

TC 

CAP 




20*35 OCT. 28,1968 PANDORA .080 PAGE 700 
USER* 3 PACE NO. 8 BS S3 

NO 

YES- IS THJNPLAG SET 


NO 

YES 


WAIT 1/2 SEC 


YES, LBM 
NO 

IS TElMIFLG set 

NO 

YES 


LHM 


THACKFLG 


utoateiu 




PRPTRKAT = 1 

make UP for LOST TIME 


Cl£AR TRUNFIAG 
BIT 4 FLAG 0 
SET 407 ALARM 


IS R53FIAG SET 



I 
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038T 

REP 

48 

LAST 

700 

14,2132 

0388 

REP 

1T3 

LAST 

700 

14,2133 

0389 

REP 

3 

LAST 

700 

14,2134 

0390 





14,2135 

0391 

REP 

» 



14,2136 

0392 

REP 

26 

LAST 

665 

14,2137 

0393 

REP 

9 

LAST 

700 

E5,1773 

0394 

REP 

1 



14,2140 

0394 

RHP 

1 



14,2141 

0395 





14,2142 

0396 

RHP 

4 

LAST 

701 

14,2143 

039T 

REP 

167 

LAST 

TOO 

14,2144 

0398 





14,2145 

0399 

RHP 

2 

LAST 

611 

14,2146 

0400 





14,2147 

0401 

RHP 

•2 

LAST 

695 

14,2150 

0402 





14,2151 

0403 





14.21S2 

0404 





14,2153 

0404 





14,2154 

0405 





14,2155 

0405 





14,2156 

0406 





14,2157 

0406 • 





14,2160 

0407 

REP 

32 

LAST 

TOO 

14,2161 

0408 

RHP 

47 

LAST 

T01 

14,2162 

0409 

REP 

174 

LAST 

701 

14,2163 

0410 

HEP 

2 

LAST 

699 

14,2164 

0411 

REP 

1 



14,2165 

0412 

REP 

185 

LAST 

TOO 

14,2166 

0413 

REP 

1 



14,2167 

0414 

REP 

2 

LAST 

226 

14,2170 

0415 

HEP 

5 

LAST 

T01 

14,2171 

0416 

REP 

6 

LAST 

701 

14,2172 

041T 

RHP 

93 

LAST 

T01 

14,2173 

0418 





14.21T4 

04185 





14,2175 

0419 

REP 

3 

LAST 

226 

14,2176 

0421 

HEP 

186 

LAST 

T01 

14,2177 

0422 

REP 

6 

LAST 

590 

14,2200 

0423 

REP 

143 

LAST 

689 

14,2201 

0424 

REP 

3 

LAST 

236 

14,2202 


7 0074 

0 


mask 

SWTE 

10 000 

0 


CCS 

A 

0 2065 

0 


TC 

R32P 

0 0004 

0 


INHINT 


3 7661 

1 


CAP 

PRI024 

0 5042 

1 


TC 

PINDVAC 




EBANK= 

SAC 

02144 

1 


2CADR 

R53JCB 

30065 

1 




0 0003 

1 


RELINT 


1 2065 

1 


TCP 

R52E 

0 6006 

1 

R 53 JOB 

TC 

intpret 

77624 

1 


CALL 


31322 

0 



R53 

77776 

1 

ENDPIAC 

EXIT 


0 5112 

0 


TC 

fjrocpjCB 

01534 

1 

VO 6 N 92 

VN 

00692 

01531 

1 

V06N89A 

VN 

0689 

10464 

0 

SHAXIS 

2DEC 

.5376381241 B_i 

12470 

1 




00000 

1 


2DEC 

0 

00000 

1 




15373 

1 


2DE C 

.8431766920 B-l 

11554 

0 




3 4701 

0 

H52L 

CAP 

BITlO 

7 0075 

1 


mask 

SWTE +1 

10 000 

0 


CCS 

A 

0 2124 

1 


■ TC 

R52J 

3 2174 

1 


CAP 

CCT404 

0 4555 

0 


TC 

bankcall 

21671 

1 


CADR 

PRICLARM 

1 2176 

1 


TCP 

TERM52 

1 2065 

1 


TCP 

R52P 

1 2065 

1 


TCP 

R52P 

1 5112 

1 


TCP 

ENDOPJOB 

00404 

1 

OCT404 

OCT 

404 

00264 

1 

1.8SEC 

DEC 

180 

0 5425 

1 

TERMS 2 

TC 

CLEARMRK 

0 4555 

0 


TC 

BANKCALL 

16083 

0 


CADR 

mgreipas 

3 4714 

1 


CAP 

ZERO 

55«323 

0 


TS 

optcadr 


20*35 OCT. 28,1968 PANDORA 080 PAGE T01 
USERnS PAGE NO. 9 Ej S3 

YES 
NO 


INTERPRETER RETURN TO ft®OPJOfi(R22 USES) 


IS THIS A IJ94 

YES 

TERMINATE 

PHOCEH5 

NO PROVISION FOR NEW DAW 

KILL MARK SYSTFM 


0425 RHP 1ST LAST T01 14,2203 0 4555 0 


TC 


BANKCAU, 


CIEAR OJT EXTENDED VERBS 




ASSEMHJ? REVISION 2*9 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 

P51-PS3 


8428 REE 3 

0427 HEP 48 

0428 

0429 

0430 

0431 

0432 REP it 

BEP 8 


0433 

0434 

0435 


LAST 583 
LAST 898 


REP 

REP 


LAST TOO 
LAST 899 

LAST 897 
LAST 697 


REP i 


14,2204 

20464 0 

CADR 

KLH9®x 

14,2205 

0 4108 1 

TC 

OOTOPOCH 

14,2208 

43020 1 ADVORB 

STQ 

SET 

14,2207 

02578 1 


SAVORS 2 

14,2210 

04085 0 


advhk 

14,2211 

43014 0 

®T 

®T 

14,2212 

01463 1 


LUNAPLAG 

14,2213 

00462 1 


bradflag 

14,2214 

77650 1 

goto 


14,2215 

30005 1 


R52VW 


20*35 OCT. 28,1968 PANDORA .080 PACE T02 
USER.3 PACE NO. io *5 S 3 

NO» 00 TO POO 

SETS UP ADVANCED ORBIT TRACKING 


L 
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20*35 OCT. 28,1968 PANDORA .080 PAGE 703 


PS 1 -PS 3 


USIUS PAGE NO. 11 


NAME -S50 ALIAS LOCsAM 
NAME- LOCsAM 

FUNCTION -TO COMPUTE QUATITIGS LISTED BELOW .USED IN THE 
MI ALIGNMENT PROGRAMS 

DEFINE’ 

RATT^ POSITION VECTOR OP CM WRT PRIMARY BODY 
VATIbVELOCITY VECTOR OP CM WRT PRIMARY BODY 
HE =RADIUS OP EARTH 
RM ^RADIUS CP MOCN 

BCLIPOL= POLE OP ECLIPTIC SCALED BY TANGENTIAL VELOCITY OP EARTH 
WRT TO SUN CVER THE VELOCITY OP LIGHT 
REM -POSITION OP MOCN WRT EARIH 
RES =PQSITICN OP SUN WRT EARIH 
C - VELOCITY OP LIGHT 


EARTH IS PRIMARY 


MOCN IS PRIMARY 


VEARIH=-i<RATT) 


VEARIH=-1 ( REMtRATT) 


VMOCN- l(REM-RATT) 


VMOCN =-i(RATD 


VSUN s KRES) 


VSUN =1 ( RES-RR4I 


CEARIH=COS( SIN (RB/RATD+5) CEARTH=COS 5 


CMOCN= COS 5 


CMOCN=COSCSIN Chm/RATD+5) 


CSUN = COS 15 


CSUN = COS 15 


VEL/C = VSUN X ECLIPOL + VATT/C 


CALL - DLOAD CALL 

DESIRED TIi* 
LOCSAM 

INPUTS - MPAC = TIME 


OUTPUTS- VWRm, VMOCN, VSUN ,CEARIH,CMOCN, CSUN, VEL/C 


SUBROUTINES- LSPOS,CSMCCNIC 


DEBRIS - VAC AREA, SEE SUBROUTINES 






L 


ASS&BLB REVISION 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 
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20*35 OCT. 28,1968 PANDORA . 680 PAOB T04 



R0488 










0487 

REP 

2 

LAST 

898 

14,2000 



SBTLOC PS0S1 

0488 





14,2216 



BANK 


0489 

REP 

1 






COUNT* 1J/S50 

0490 

REP 

1 



14,2216 


LOCSAM 

= 

350 

0491 





14,2218 

77620 0 

350 

STO 


0492 

REP 

4 

LAST 

698 

14,2217 

00300 1 



CMAJ 

0493 

REP 

T 

LAST 

698 

14,2220 

36607 0 


SICALL TSIGHT 

0494 

REP 

1 



14,2221 

54110 0 



LSPOS 

0495 

REP 

2 

LAST 

93 

14,2222 

26752 0 


STCVL 

VMOCN 

0496 





14,2223 

00003 1 



2D 

0497 

REP 

2 

LAST 

93 

14,2224 

16744 1 


ST0DL 

VSUN 

0498 

REP 

8 

LAST 

T04 

14,2225 

02607 1 



TSIGHT 

0499 

REP 

39 

LAST 

698 

14,2226 

3404 1 0 


SICAI-L TOECi 

0500 

REP 

5 

LAST 

586 

14,2227 

27045 0 



CSBCCNIC 

0501 





14,2230 

61131 0 


SSP 

TIX, 2 

0502 

REP 

10 

LAST 

624 

14,2231 

00052 0 



32 

0503 





14,2232 

00000 1 



0 

0504 

REF 

1 



14,2233 

30256 0 



MOCNCNTR 

0505 





14,2234 

5 2375 1 

EARTCNTR vload 

VSU 

0508 

REP 

3 

LAST 

704 

14,2235 

0275 2 0 



VMOCN 

0507 

REP 

23 

LAST 

698 

14,2236 

00001 0 



RATT 

0508 





14,2237 

77656 1 


UNIT 


0509 

REP 

4 

LAST 

T04 

14,2240 

26752 0 


STCVL 

VMOCN 

0510 

REP 

24 

LAST 

T04 

14,2241 

00001 0 



RATT 

0511 





14,2242 

57456 1 


UNIT 

VCCMP 

0512 

REP 

3 

LAST 

93 

14,2243 

16738 1 


ST0DL 

VEAR1H 

0513 

REP 

1 



14,2244 

32162 0 



RSUBE 

0514 





14,2245 

77624 1 


CALL 


0515 

REP 

1 



14,2246 

30316 0 



OCCOS 

0516 

REP 

1 



14,2247 

14017 1 


STOOL 

CEARTH 

0517 

REP 

1 



14,2250 

32200 1 



csss 

0518 

REP 

1 



14,2251 

24023 0 


STCVL 

CMOCN 

0519 

REP 

3 

LAST 

T04 

14,2252 

02744 1 



VSUN 

0520 





14,2253 

77656 1 


UNIT 


0521 

REP 

4 

LAST 

T04 

14,2254 

36744 0 


SICALL 

VSUN 

0522 

REP 

1 



14,2255 

30303 1 



BID SAM 

0523 





14,2256 

40575 1 

mocncntr vload 

VSR8 

0524 

REP 

5 

LAST 

704 

14,2257 

0275 2 0 



VMOCN 

0525 





14,2260 

5 1 362 1 


VSRi 

BVSU 

0526 

REP 

5 

LAST 

704 

14,2261 

02744 1 



VSUN 

0527 





14,2262 

77656 1 


UNIT 


0528 

REP 

6 

LAST 

704 

14,2263 

26744 1 


STCVL 

VSUN 

0529 

REP 

6 

LAST • 

704 

14,2264 

0275 2 0 



VMOCN 

0530 





14,2265 

53455 0 


VAD 

UNIT 

0531 

REP 

25 

LAST 

704 

14,2266 

00001 0 



RATT 

0532 





14,2267 

77676 0 


VCCMP 


0533 

REP 

4 

LAST 

704 

14,2270 

26736 1 


STCVL 

vfarth 


USRRaS PAOB NO. 12 R5 S3 
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20 *35 OCT. 28,1988 PANDORA .080 PAGE T05 


1 

L 

P51- 

■P53 







0534 

REP 

26 

LAST 

704 

14,2271 

00001 

0 


0535 





14.22T2 

57456 

1 


0536 

HEP 

7 

LAST 

704 

14,2273 

16752 

0 


05 3T 

HEP 

1 



14.22T4 

32160 

1 

i 

0538 





14,2275 

77824 

1 

1 

0539 

REP 

2 

LAST 

704 

14,2276 

30316 

0 


0540 

REP 

2 

LAST 

704 

14,2277 

14023 

0 


0541 

REP 

2 

LAST 

704 

14,2300 

32200 

1 


0542 

REP 

2 

LAST 

704 

14,2301 

24017 

1 


0543 

REP 

7 

LAST 

704 

14,2302 

02744 

1 


0544 





14,2303 

77635 

1 


0545 

REP 

1 



14,2304 

32170 

0 


0546 

REP 

2 

LAST 

115 

14,2305 

27474 

0 


054T 

REP 

19 

LAST 

698 

14,2306 

00007 

0 


0548 





14,2307 

53361 

0 

! 

0549 

REP 

1 



14,2310 

32166 

1 


0550 

REP 

. 3 

LAST 

705 

14,2311 

03474 

0 


0551 

REP 

4 

LAST 

705 

14,2312 

17474 

0 


0552 

REP 

I 



14,2313 

32202 

0 


0553 

REP 

1 



14,2314 

34021 

0 


0554 

REP 

S 

LAST 

704 

14,2315 

00300 

1 


OSSS 





14,2316 

70471 

1 


0556 





14,2317 

00045 

0 


055T 





14,2320 

43336 

0 


0558 

REP 

1 



14,2321 

32164 

0 


0559 





14.2322 

70546 

1 

v -' 

0560 





14,2323 

77816 

0 


0561 

REP 

2 

LAST 

694 

15,2000 




0562 





15,2157 




0583 





15,2157 

00065 

1 


0563 





15,2160 

01265 

1 


0564 





15,2161 

00302 

0 


0564 





15,2162 

24533 

1 


0565 





15,2163 

00343 

0 


0565 





15,2164 

21616 

0 


0566 





15,2165 

00000 

1 


0566 





15,2166 

13143 

0 


0567 





15,2167 

00000 

1 


0567 





15,2170 

00000 

1 


0568 





15,2171 

77777 

0 


0568 





15,2172 

53231 

1 


0569 





15,2173 

00001 

0 


0569 





15,2174 

17570 

0 


‘ 0570 





15,2175 

00001 

0 


0570 





15,2176 

16700 

1 


0571 





0016 




0572 





0020 




0573 





0022 




0574 





15,2177 

07760 

1 


0574 





15,2200 

14473 

1 


UffiRaS PAGE NO. 13 Bs S3 




RATT 



UNIT 

VCCMP 



STOOL 

VMOON 

rslbm 



CALL 

OCCOS 



ST0DL 

CMOON 

CSS5 



STO/L 

CEARTH 

VSUN 


BTOSAM 

VXV 

ECLIPOL 



STOVL 

VEL/C 

vatt 



VX9C 

VAD 

1/C 

VEL/C 



STCDL 

VEL/C 

CSSUN 



STCALL CSUN 




GMAJ 


OCCOS 

DO/ 

SRI 




36D 



ASIN 

DAD 

SDEGHffiS 



COS 

SRl 



RVO 




SETLOC P 50 S 



BANK 



RSUBM 

2DEC 

1738090 B-29 

MOCN RADIUS IN METERS 

RSUBE 

2DEC 

6378166 B-29 


5 DECJREES 

2oec 

.013888889 

SCAIH) IN REVS 

1/C 

ZDEC 

.000042699 B-i 

* 

ECLIPCL 

20EC 

0 



ZDEC 

-.00007896 B-i 

* 


2DEC 

.00018209 B-i 

* * FOR USE BY CSM ONLY 

TSIOTTl 

2DEC 

24000 


CEAR7H 

_ 

14D 


CSUN 


16D 


CMOCN 

= 

l&D 



CSS5 2DBC .2490475 (COS 5>/4 



9 
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•STS 

•515 


15.2201 0T564 1 CSSUN 2D6C .24148 

15.2202 15042 0 
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COS 15 /4 








Assa«LB REVISION 249 OP AQC PROGRAM COLOSSUS BY NASA 2021111-041 

PS1-P53 


20*35 OCT. 28,1968 PANDORA .080 PACE TOT 
USSRaS PAGE NO. 15 E5 S3 



P05T6 

R05TT 

ROSTS 

R05T9 

R0580 

R0581 

R0582 

R0583 

R05B4 

R0585 

R0588 

R058T 

R0588 

R0589 

R0590 

R0591 

ROS92 

R0593 

R0594 

R0595 

R0596 

R059T 

R0598 

R0599 

R0600 

R0601 

R0602 

R0603 

R0604 

R0605 

R0608 

ROBOT 

R0608 

R0609 


PROGRAM NAMS - PICApAR 

MOD 1 

BY KEN VINCENT 


DATE DEC 20 68 

LOO SECTION P51-P53 

ASSENBLY SUNDISK RBV40 


FUNCTION 

THIS PROGRAM READ THE IMU-CDUS AND COMPUTES THE VSIICLE ORIENTATION 
WITH RESPECT TO INERTIAL SPACE. IT THEN COMPUTES THE STAFT AXIS (SAX) 
WITH RESPECT TO REFERENCE INERTIAL. EACH STAR IN THE CATALOG IS TESTED 
TO DETERMINE IF IT IS OCCULTED BY EITHER THE EARTH, SUN OR MOON. IF A 
STAR IS NOT OCCULTED THEN IT IS PAIRED WITH ALL STAR OP L0.7ER INDEX. 
THE PAIRED STAR IS'TESTED FOR OCCULTATICN. PAIRS CP STARS THAT PASS 
THE OOCULTATION TESTS ARE TESTS) FOR GOOD SEPARATION .A PAIR CP STARS 
HAVE GOOD SEPARATION IF THE ANGLE BETOKEN THEM IS LESS THAN 66DEGREES 
AND MORE THAN 40DEGREBS. THOSE PAIRS OP STARS WITH GOCD SEPARATION 
ARB THEN TESTED TO SEE IF THEY LIE IN CURRENT FIEID OF VIEW. (WITHIN 
33DEGREES OP SAX). THE PAIR WITH MAXIMUM SEPARATION IS CHOSEN FROM 
THOSE WITH GOOD SEPARATION, AND IN FIELD OP VIEW. 

CALLING SEQUENCE 
L TC BANkCALL 

L+l CADR PICAPAR 

L+2 ERROR RETURN - NO STARS IN FIELD OF VIEW 

L+3 NORMAL RETURN 

OUTPUT 

BE ST r, BP. ST J -SINGLE PREC, INTEGERS, STAR NUBERS TIMES 6 
VFLAG - FLAG BIT SET IMPLIES NO STARS IN FIELD OP VIEW 

INITIALIZATION 

1 )A CALL TO LOCSAM MJST BE MADE 

2)VEARTH 2 -UNITOR) WHERE R HAS BEEN UPDATED TOO APPROXIMATE TIME OF 
SIGHTINGS. 


R0610 

DEBRIS 








R0611 

WORK AREA 







RO012 

X.Y.ZNB 








R0613 

SINCDU.COSCDU 







RO014 

S1ARAD - 

STAR 

♦5 






0015 

REF 1 






COUNT 

14/PICAP 

0010 

BEF 3 

LAST 

704 

14,2000 



SETLOC 

P50S1 

001T 




14,2324 



bank 


0018 

REP 3 

LAST 

564 

14,2324 

0 4604 

1 

PICAPAR TC 

MAKECADR 

0019 

REF 3 

LAST 

554 

14,2325 

55«777 

0 

TS 

CM IN 

0020 

REP 168 

LAST 

701 

14,2326 

0 6006 

1 

TC 

INTPRET 

0021 




14,2327 

77624 

1 

CALL 


0622 

REP 6 

LAST 

673 

14,2330 

47432 

1 


CDUTRIG 

0623 




14,2331 

77624 

1 

CALL 


0624 

REF 1 



14,2332 

34567 

1 


CAIDSM9C 


C 

1 
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0625 

0828 

0827 

0828 
0829 

0630 

0631 
0832 

0633 

0634 
0835 

0636 

0637 

0638 

0639 
. 0640 

0641 

0642 

0643 

0644 

0645 
0846 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 
0661 
0662 

0663 

0664 

0665 

0666 

0667 

0668 

0669 

0670 

0671 
0872 1 

0673 

0674 I 


rsi- 

-P53 



REP 

1 



REP 

1 



REF 

8 

LAST 

611 

REP 

4 

LAST 

424 

HEP 

1 



REP 

4 

LAST 

417 

REP 

1 



REP 

21 

LAST 

677 

REP 

1 



REP 

25 

LAST 

636 

REP 

11 

LAST 

704 

REP 

1 




20*35 OCT. 28,1968 PANDORA .080 PACK T08 
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14.2333 

14.2334 

14.2335 

14.2336 

14.2337 

14.2340 

14.2341 

14.2342 

14.2343 

14.2344 

14.2345 
.14,2346 
14,2347 

14.2350 

14.2351 

14.2352 

14.2353 

14.2354 

14.2355 

14.2356 

14.2357 
14,2360 
14,2381 
14,2362 
14,2383 


77601 
00001 
71214 
01465 
11456 
24303 
02714 
63361 
30502 ' 
02730 
74370 I 
00344 
30504 I 
77655 1 
53505 1 
01736 1 
02760 1 
66331 C 

00051 C 
00008 1 

00052 0 
00006 1 
52100 1 
30364 0 
30513 0 


0 

SET DLOAD 
VFLAG 
DPZERO 
STOVL BEST! 


VFLAG = i 


XI s 37 -X 8 +6 


UNIT 

RBFS4MAT 

SAX 

SSP 

51 
6 

52 
6 

GOTO 

PIC 2 

PICEND 


SAX = SHAFT AXIS 
Si =32=6 


MAJOR STAR 





14,2364 

45173 0 

PIC 2 

VLOAD+ CALL 

2 

LAST 

622 

14,2365 

31744 1 



CATLOG,! 

1 



14,2366 

30457 1 



OCCULT 




14,2367 

73014 0 


BCN 

lxa , 2 

4 

LAST 

283 

14,2370 

01710 0 



Qjltflao 

1 



14,2371 

30381 0 



PICi 

31 

LAST 

676 

14,2372 

00048 0 



XI 




14,2373 

52104 0 

PIC 3 

TIX, 2 

GOTO 

1 



14,2374 

30376 0 



PIC4 

2 

LAST 

708 

14,2375 

3036 1 0 



PICi 




14,2378 

45173 0 

PIC4 

VLOAD* CALL 

3 

LAST 

708 

14,2377 

46033 0 



CATLOG, 2 

2 

LAST 

708 

14,2400 

30457 1 



OCCULT 




14,2401 

76614 0 


BCN 

VLOAD* 

5 

LAST 

708 

14,2402 

01710 0 



CULTFIAG 

1 



14,2403 

30373 0 



PIC3 

4 

LAST 

708 

14,2404 

31744 1 



CATLOG, 1 




14,2405 

45237 0 


DOW 

DSU 

5 

LAST 

708 

14,2406 

46033 0 



CATLOG, 2 

1 



14,2407 

30508 1 



CSS66 




14,2410 

43240 0 


EMf 

DAD 

2 

LAST 

708 

14,2411 

30373 0 



PIC3 

1 



14,2412 

30510 0 



CSS6640 




14,2413 

77644 1 


' BPL 


3 

LAST 

708 

14,2414 

3037 3 0 



PIC3 




SEPERATICN LESS THAN 66 DEG. 


SEPERATICN MORE THAN 40 DEO. 
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L 

FS1- 

P53 









08T5 





14,2415 

50373 

0 


vload* dot 

06T6 

BBP 

6 

LAST 

708 

14,2418 

31744 

1 



CAILOG.l 

OSTT 

aw 

2 

LAST 

708 

14,2417 

02780 

1 



SAX 

OfiTB 





14,2420 

50025 

0 


DSU 

B«4 

00T9 

HEP 

1 



14,2421 

30512 

1 



CSS33 

0880 

aw 

3 

LAST 

708 

14,2422 

30361 

0 



PICi 

0681 





14,2423 

50373 

0 


VLOAD* DOT 

0862 

BBF 

7 

LAST 

709 

14,2424 

48033 

0 



CATLOG ,2 

0683 

BBF 

3 

LAST 

709 

14,2425 

02760 

1 



SAX 

0684 





14,2428 

51025 

1 


DSU 

BPL 

0665 

BBF 

2 

LAST 

709 

14,2427 

30512 

1 



CSS33 

0686 

BBF 

1 



14,2430 

30433 

0 



STRAWY 

068T 





14,2431 

77650 

1 


GOTO 


0688 

BBF 

4 

LAST 

708 

14,2432 

30373 

0 



PIC 3 

0689 





14,2433 

77614 

1 

STOATOY 

BCNCLR 


0690 

HEP 

2 

LAST 

708 

14,2434 

01605 

0 



VFLAG 

0691 

BBF 

1 



14,2435 

30452 

1 



nhwpar 

0692 





14,2436 

65120 

1 


XCHX.l 

XCKX,2 

0693 

BBF 

9 

LAST 

708 

14,2437 

00302 

0 



BBSTI 

0694 

BBF 

2 

LAST 

70 

14,2440 

00303 

1 



8 ESTJ 

0695 





14,2441 

47773 

1 

STOAT 

VLQ4D* DOT* 

0696 

BBP 

8 

LAST 

709 

14,2442 

31744 

1 



CATLOG,l 

069T 

BBP 

9 

LAST 

709 

14,2443 

46033 

0 



CATLOG.2 

0698 





14,2444 

43006 

0 


PUSH 

BOFINV 

0699 

BBF 

3 

LAST 

709 

14,2445 

01545 

1 



VFLAG 

OTOO 

BBF 

1 



14,2446 

30438 

0 



STRAT -3 

OTOl 





14,2447 

45345 

1 


DLCWD 

DSU 

0 T 02 





14,2450 

77644 

1 


BPL 


0T03 

REP 

5 

LAST 

709 

14,2451 

30373 

0 



PIC 3 

0704 





14,2452 

67130 

1 

NEWPAR 

SXA,1 

SXA,2 

0T05 

BBF 

10 

LAST 

709 

14,2453 

00302 

0 



BBSTI 

0706 

BBF 

3 

LAST 

709 

14,2454 

00303 

1 



BESTJ 

OTOT 





14,2455 

T7650 

1 


GOTO 


0708 

BBF 

6 

LAST 

709 

14,2456 

30373 

0 



PIC 3 

0709 





14,2457 

51321 

0 

OCCULT 

MXV 

BVSU 

0 T 10 

HBP 

1 



14,2460 

02736 

1 



CULTRIX 

0711 

BBF 

1 



14,2481 

00017 

1 



CSS 

0712 





14,2462 

77654 

0 


BZE 


0713 

HBP 

1 



14,2483 

30476 

1 



(XLTED 

0714 





14,2464 

75240 

0 


BM7 

SIGN 

0715 

BBF 

2 

LAST 

709 

14,2465 

30476 

1 



CULTS! 

0716 

BBF 

272 

LAST 

683 

14,2466 

00160 

0 



MPAC +3 

0717 





14,2467 

75240 

0 


BMN 

SIGN 

0718 

BBF 

3 

IAST 

709 

14,2470 

30476 

1 



cm, TED 

0T19 

BBF 273 

LAST 

709 

14,2471 

00162 

1 



MPAC 4.5 

0 T 20 





14,2472 

43040 

1 


BW 

CLRGO 

0721 

REP 

4 

LAST 

709 

14,2473 

30476 

1 



CULTBD 

0722 

. I BP 

6 

LAST 

708 

14,2474 

01630 

0 



cults ao 

0723 

HEP 

13 

LAST 

624 

14,2475 

00052 

0 



OP RET 

.0724 





14,2476 

77614 

1 

CULTED 

SETGO 



USBHaS PAGE NO. IT 


MAJOR STAR IN CCNE 


B5 S3 
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709 

14,2477 

01430 1 



709 

14,2500 

00052 0 



705 

0016 


CSS 

- 


14,2501 

21150 0 

SIN33 

2D6C 


14,2502 

25157 0 




14,2503 

32786 1 

COS33 

2Dec 


14,2504 

22713 1 




14,2505 

01736 1 

CSS66 

2D6C 


14,2506 

35137 1 




14,2507 

73003 0 

CSS6640 

2D6C 


14,2510 

65403 0 




14,2511 

06233 0 

CSS33 

2DBC 


14,2512 

26112 1 




14,2513 

77414 0 

PICEND 

BCPP 

709 

14,2514 

01745 0 




14,2515 

30517 1 




14,2516 

0 2521 0 


TC 


14,2517 

77778 1 

PICGXT 

EXIT 

707 

14,2520 

25«777 1 


INCR 

710 

14,2521 

3 1777 1 

pichxt 

CA 

413 

14,2522 

0 4561 1 


TC 




VI 

- 


OjLTVLAG 

QPRET 

CSARTH 

.5376381241 


.8431756920 


.060480472 


fCOS76>/4 


-.15602587 


.197002888 


CCOS76 - COS30>/4 
COS(l/2<78)>/4 


Exit 

VPLAO 

PIOGxT 

PICBXT 
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KAMB-R51 PINE ALIGN 

PUNCTICN-TO ALIGN WE STABLE J-B-BER TO REFS44AT 

CALLING SHO- CALL RSI 

INPUT- BESTI.BESTJGPAIR OP STAR NO ) 

onwr- gyro torque pulses 

SUBROUTINES- RS2,RS*,R55(SXTNB,NBS1,AXISCB< 

REP 1 


COUNT 1*/R51 


0749 





1*,2523 

77776 

1 

R51 

EXIT 


0750 

REP 

55 

LAST 

695 

1*,2524 

3 4712 

1 


CAP 

BITl 

0T51 

REP 

* 

LAST 

610 

14,2525 

54 304 

1 


TS 

SWRIND 

0T52 

REP 

6 

LAST 

610 

14,2526 

54 301 

1 


TS 

markindx 

0T53 

REP 

169 

LAST 

TOT 

14.252T 

0 6006 

1 

R51.2 

TC 

INTPRET 

0754 





14,2530 

43014 

0 

RSI. 3 

CLEAR 

CLEAR 

0755 

REP 

3 

LAST 

610 

14,2531 

00666 

1 



TARG2FLG 

0756 

HEP 

5 

LAST 

699 

14,2532 

00665 

1 



WRGlPLG 

0757 





14,2533 

77776 

1 


EXIT 


0758 

REP 

65 

LAST 

695 

14,2534 

0 5301 

0 


TC 

PHASCHNG 

0759 





14,2535 

05024 

1 


OCT 

05024 

0700 





14,2536 

13000 

0 


OCT 

13000 

0761 

REP 

5 

LAST 

Til 

14,2537 

50 304 

0 


INDEX 

STARIND 

0762 

REP 

11 

LAST 

T09 

14,2540 

3 0302 

0 


CA 

BESTI 

0763 





14,2541 

0 0006 

1 


EXTEND 


0764 

H0P 

I 



14,2542 

7 2701 

1 


MP 

1/6W 

0765 

REP 

6 

LAST 

611 

14,2543 

54 735 

1 


TS 

START COE 

0766 

REP 

1 



14,2544 

3 2700 

1 


CAP 

V0 into 

0767 

REP 

188 

LAST 

T01 

14,2545 

0 4555 

0 


TC 

RANKCAIi, 

0768 

REP 

15 

LAST 

861 

14,2546 

20763 

1 


CADR 

GCFTASHR 

0769 

REP 

50 

LAST 

T02 

14,254T 

0 4106 

1 


TC 

GOTOPOCH 

0770 





14,2550 

0 2555 

0 


1C 

+5 

0771 





14,2551 

0 2544 

0 


TC 

-5 

0772 

REP 

2* 

LAST 

6*9 

14,255 2 

3 6211 

0 


CAP 

SIX 

0773 

REP 

13 

LAST 

61T 

14,2553 

0 5415 

1 


TC 

blanket 

0774 

HEP 

9* 

LAST 

T01 

14,2554 

1 5112 

1 


TCP 

ENDOPJOR 

0775 

HEP 

1T0 

LAST 

Til 

14,2555 

0 6006 

1 


TC 

INTPRET 

0776 





14,2556 

45034 

1 


RIB 

CALL 

0777 

HEP 

20 

LAST 

696 

14.255T 

45505 

0 



LQADTIME 

0778 

REP 

1 



14,2560 

32363 

0 



PIANBT 

0779 





14,2561 

72131 

1 


SSP 

LXA.l 

0780 

REP 

26 

LAST 

T08 

14,2562 

00051 

0 



Si 

0781 





14,2563 

00000 

1 



0 

0782 

REP 

6 

LAST 

Til 

14,2564 

00304 

0 



STARIND 

0783 





14,2565 

77700 

0 


TlX, 1 


0784 

HEP 

1 



14,2566 

30571 

1 



R51ST 

0785 

HEP 

3 

LAST 

611 

14, 256T 

36617 

1 


STCALL 

STARS4V2 

0786 

REP 

2 

LAST 

Til 

14.25T0 

30572 

1 



R51ST +1 

0787 

HEP 

2 

LAST 

91 

14,2571 

02611 

0 

R51ST 

STORE 

STARSAvi 

0T88 





14,2572 

77776 

1 


EXIT 


0709 

REP 

12 

LAST 

644 

14,2573 

4 1011 

1 


CS 

MODREG 

0790 

REP 

1 



14,2574 

6 2677 

0 


AD 

OCT66 
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RESTART OR * FOR R52 - R33 


2ND STAR 


1ST STAR 


IS THIS P54 








* 
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HEP 4 LAST Til 


hbp 5 last T12 

REP 3 LAST TU 


RBP 1 


HEP 1 
HEP 1 


REP 2 LAST 640 



14.25T5 

0 0006 1 

EXTB© 


14,2576 

1 2672 1 

BZP 

R5lB 

' Til 

14,2577 

0 6006 1 

TC 

INTPRBT 


14,2800 

T7624 1 

CALL 


<13 

14,2601 

30002 0 


R52 


14,2602 

TT624 1 R51A 

CALL 



14,2603 

31266 1 


SXTS4 

Til 

14,2804 

02817 0 

STORB 

STARSAV2 


14,2805 

TTT78 1 

exit 


Til 

14,2606 

0 4555 0 

TC 

RANkCALL 

T01 

14,2807 

16063 0 

CADR 

MGRSLEAS 

T12 

14,2610 

0 6008 1 

TC 

INTPRBT 


14,2611 

45145 0 

DLOAD 

CALL 

T04 

14,2612 

02607 1 


TSICHT 

Til 

14,2613 

32363 0 


PLANET 


14,2814 

77776 1 

exit 


Til 

14,2615 

10 304 1 

CCS 

STARIND 


14,2618 

0 2657 1 

TC 

R51.4 

T12 

14,2617 

0 6006 1 

TC 

INTPRBT 


14,2620 

53521 1 

MXV 

UNIT 

T08 

14,2621 

01736 1 


HEPSM4AT 

443 

14,2622 

02736 1 

STORE 

STARAD 


14,26 23 

77775 1 

VLOAD 


T12 

14,2624 

02617 0 


STARSAV2 


14,2625 

24007 0 

STCVL 

60 

Til 

14,2626 

02611 0 


SIARSAvi 


14,2627 

24015 0 

STTVL 

12D 

91 

14,2630 

02601 1 


PLANVEC 

T12 

14,2631 

36744 0 

SICALL STARAD 


14,2632 

30702 1 


H54 


14,2633 

45014 0 

ROPE 

CALL 


14,2634 

0 0 35 4 0 


PREEPLAG 


14,2635 

30643 0 


R51K 

444 

14,2636 

47334 0 


AXISGBI 


14,2637 

77624 1 

CALL 



14,2840 

32203 1 


R55 


14,2641 

77614 1 

CIEAR 


640 

14,2642 

0127 3 0 


PFRATBLG 


14,2643 

77776 1 R51K 

EXIT 


155 

14,2644 

3 5656 1 

CAP 

0CT14 

T12 

14,2645 

O 4555 0 

TC 

bankcall 

696 

14,2646 

20751 0 

CADR 

GOPERPi 

Til 

14,2647 

0 4106 1 

TC 

GOrOPOCH 


14,2650 

0 285 2 1 

TC 

*2 


14,2651 

0 2654 1 

TC 

+3 

T12 

14,2652 

0 4555 0 

TC 

RANkCAIL 

697 

14,2653 

32120 0 

CADR 

P52C 

T12 

14,2654 

0 6008 1 

TC 

INTPRBT 


14,2655 

77650 1 

GOTO 



14,2656 

32143 0 


ENDP50S 




A OP WILL MAKE CALLS TO SIOHTINO 
COMPUTE LOS IN S4 PROM MARK DATA 


STAR data test 




GYRO TORQUE 
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20*35 OCT. 23,1968 PANDORA .080 PAGE 713 


- 

P51- 

-P53 







0848 

REP' 

175 

LAST 

712 

14,2857 

0 6006 

1 

R51.4 

0847 





14,2860 

53521 

1 


0848 

REP 

23 

LAST 

712 

14,2001 

01736 

1 


0849 

REP 

3 

LAST 

712 

14,2362 

' 28601 

1 


0850 

REP 

6 

LAST 

712 

14,2883 

02817 

0 


0851 

REP 

4 

LAST 

712 

14,2664 

02811 

0 


0852 





14,2865 

77731 

1 


0853 

REP 

8 

LAST 

712 

14,2308 

00305 

1 


0854 





14,2667 

00000 

1 


0855 





14,2870 

77650 

1 


0858 

REP 

1 



14,2671 

30530 

1 


0857 

REP 

176 

LAST 

713 

14,2872 

0 6006 

1 

RSlB 

0858 





14,2673 

77624 

1 


0859 

REP 

1 



14,2874 

32252 

0 


0860 





14,2875 

77650 

1 


0861 

REP 

1 



14,2676 

30602 

0 


0862 





14,2877 

00066 

1 

OC7B6 

0863 





14,2700 

00308 

1 

V01N70 

0864 





14,2701 

05253 

0 

1/8TH 


US8R-S PAGE NO. 21 E5 S3 


1C 

INTPRET 


UNIT 

REFSM4AT 

STCVL 

PLANVEC 

STARSAV2 

STORE 

SWRSAV1 

SSP 

starind 

0 

GOTO 

R51.3 

TC 

INTPRET 

CALL 

R56 

GOTO 

R5lA 

OCT 

00066 

VN 

0170 

DEC 

.1666667 


I 


to 885 
•8886 
•88 AT 
■8888 
•8889 
•8870 


Revision 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 

PS1-T53 

®*®-«55 OYRO TORQUE 
KEaPSTOPf-COMPure AND SEND GYRO PULSES 
CBLUNG SEO- CALL R 55 

P5TO r ~ X.Y.ZDC- REESPMAT WRT PRESENT STABLE MM3ER 
CffiBW- GYRO PULSES 

snEaatrriNEs- 


98705 

WET 3 

LAST 

705 

9871 

08715 

BHP 1 



•872 

MT3 

HEF 4 

LAST 

710 

9874 

9875 

■fflF 3 

LAST 

534 

•878 

•877 

•878 

w 1 

*EF 192 

LAST 

712 

•879 

■W 32 

LAST 

698 

•880 

»W 52 

LAST 

712 

•881 

•882 

•883 

nr ] 

HP ] 
•®F (6 

LAST 

Til 

•884 

0885 

•880 

•OB' 1 
MB' 1J3 

LAST 

714 

•887 

*B3F 5 

LAST 

439 

•888 

*HF 194 

LAST 

714 

•889 

MB' 9 

LAST 

439 

9890 

•891 

tBsr 1 
•®f er 

LAST 

714 

9892 

•893 

•894 

■HP ITT 

LAST 

713 

•895 

•896 

*BW x 

LAST 

T14 

•897 

•898 

•HP is 

LAST 

535 


0899 

•0900 

■0902 

■0904 

■0906 

■0908 

■0910 

■0912 

■0913 

■0914 

■0915 

■9916 


WEnniMe nape, 
jab* NO- 0 
JWMrKTATION By. 


chksdata 
lcnskb 


15,2000 



SETLOC PsoS 

15,2203 



BANK 





COUNT* JI/R 55 

15,2203 

T7820 0 

H55 

STD 


15,2204 

02777 1 



CHIN 

15,2205 

77624 1 


CALL 


15,2206 

47140 1 



CALOGTA 

15,2207 

TT7T6 1 

PULSEM 

EXIT 


15,2210 

3 2234 0 

R55.1 

CAP 

VO 6 N 93 

15,2211 

0 4555 0 


TO 

BANkCALL 

15,2212 

20624 0 


CADR 

GOFLASH 

15,2213 

0 4106 1 


TO 

gotopoch 

15,2214 

0 2216 0 


TO 

RS5.2 

15,2215 

0 2231 0 


TO 

R55RET 

15,2216 

0 5301 0 

RS5 .2 

TO 

PHASCHNG 

15,2217 

00314 1 


OCT 

00314 

15,2220 

3 2 2 35 1 


CA 

RS5CDR 

15,2221 

0 4555 0 


TO 

BANKCALL 

15,2222 

17125 1 


CADR 

imupulsb 

15,2223 

0 4555 0 


TO 

BANkCALL 

15,2224 

17516 0 


CADR 

MJSTALL 

15,2225 

0 5644 1 


TO 

CURTAINS 

15,2220 

0 5301 0 


TO 

PHASCHNG 

15,2227 

05024 1 


OCT 

05024 

15,2230 

13000 0 


OCT 

13000 

15,2231 

0 6006 1 

R55RET 

TO 

1NTPRET 

15,2232 

77650 1 


GOTO 


15,2233 

02777 1 



CM IN 

15,2234 

015 35 0 

VO 6 N 93 

VN 

0693 

15,2235 

0275T 0 

R55CDR 

ECADR 

OGC 

14,2702 

[A 


RS4 

= 

OK® AW 




20*35 OCT. 28,1968 PANDORA .080 PAGE 714 
USBR«S PAGE NO. 22 B 5 S 3 




DATE- JAN 9, 1967 
LOG SECTION- PSI-P53 
ASSE*LY- 


= - 

051 = OBSERVED STAR 1 VECTOR 

052 = OBSERVED STAR 2 VECTOR 

551 = STORED STAR 1 VECTOR 

55 2 = STORED STAR 2 VECTOR 
Al = ARCCOStOSl - 0S2) 




R091T 

R0918 

R0919 

R09Z0 

R0921 

B0923 

R0925 

R0926 

K092T 

R0928 


ASSMLB REVISION 249 OP AGC PROGRAM COLOSSUS BY NASA 2021111-041 
P51-P53 

*2 = ARCCOSf SSI - SS2> 

A = ABS(2(Al - A2)> 




20*35 OCT. 28,1968 PANDORA .080 PAGE T15 
USER.S PAGE NO. 23 Es S3 


WE ANGULAR DIFFERENCE IS DISPLAYED FOR ASTRONAUT ACCEPTANCE 
EXIT MODE 1 . FREEFLAG SET IMPLIES ASTRCNAUT WANTS TO PROCEED 

2. FREEFLAG RESET IMPLIES ASTRCNAUT WANTS TO RECYCLE ERANCE) 

OUTPUT - 1 .VERB g.NCUN 3- DISPLAYS ANGULAR DIFFERENCE BETWEEN 2 SETS CF STARS. 
2. STAR VECTORS FROM STAR CATALOG ARE LEFT IN gD AND 120. 

ERASABLE INITIALIZATION REQUIRED - 

1 .MARK vectors are STORED IN SIARAD AND STARAD +g . 

2 .CATALOG VECTORS ARE STORED IN gD AND lRD. 


R0929 

DEBRIS - 









09295 

REF 

4 

LAST 

TOT 

14,2000 




SETLOC P50S1 

0930 





14,2702 




hank 


09305 

REF 

1 







COUNT* SJ/RSO 

0931 





14,2702 

43020 

1 

chksmta 

STO 

SET 

0932 

REP 

8 

LAST 

T14 

14,2703 

02777 

1 



04 IN 

0933 

REF 

2 

LAST 

712 

14,2704 

00074 

1 



PREEFLAG 

0934 





14,2705 

77760 

0 

chksab 

AxC.l 


0935 

REP 

T 

LAST 

712 

14.2T08 

02735 

1 



STARAD 

R0938 











0937 





14,2707 

47773 

1 

chksb 

VLCAD* DOT* 

0938 





14,2710 

00001 

0 



0,1 

0939 





14,2711 

00007 

0 



6,1 

0940' 





14,2712 

65552 

0 


SLl 

ACOS 

0941 

REP 

1 



14,2713 

00025 

0 


STORE 

THETA 

0942 





14,2714 

43014 

0 


BOPP 

INVERT 

0943 

REP 

3 

LAST 

715 

14,2715 

00354 

0 



FREEFIAG 

0944 

REP 

1 



14,2716 

30726 

1 



cm® 

0945 

REF 

4 

LAST 

715 

14,2717 

00174 

0 


i 

FREEFLAG 

0946 





14,2720 

71360 

1 


AXC.1 

DLOAD 

0947 





14,2721 

00006 

1 



6D 

0946 

REF 

2 

LAST 

715 

14,2722 

00025 

0 



THETA 

0949 





14,2723 

00023 

0 


STORE 

1SD 

0950 





14,2724 

77650 

1 


GOTO 


0951 

REP 

1 



14,2725 

30707 

1 



cm® 

0952 





14,2728 

45345 

1 

chksd 

DLOAD 

DSU 

0953 

REF 

3 

LAST 

715 

14,2727 

00025 

0 



THETA 

0954 





14,2730 

00023 

0 



18D 

0955 





14,2731 

47046 

0 


ABS 

RIB 

0956 

REP 

3 

LAST 

495 

14,27 32 

45541 

0 



SCNAGHEB 

0957 

REP 

1 



14,2733 

01046 

1 


STORE 

NORMISMl 

0958 





14,2734 

77414 

0 


SET 

EXIT 

0959 

REF 

5 

LAST 

T15 

14,2735 

00074 

1 



FREEFLAG 

09594 

REP 

144 

LAST 

T01 

14,2736 

3 4714 

1 


CAP 

ZERO 

09595 

REF 

195 

LAST 

T14 

14,2737 

0 4555 

0 


TC 

BANKCALL 

09598 

REP 

5 

[AST 

642 

14,2740 

20607 

1 


CADR 

cleandsp 

0960 

REF 

1 



14,2741 

3 2755 

1 


CAP 

VB6N5 


SET XI TO STORE EPHEMERIS DATA 


CAL. ANGLE THETA 


branch to chksd if this is 2nd pass 


clear freefiag 

set XI TO MARK ANGLES 


RETURN TO CAL. 2ND ANGLE 


COMPUTE pos diff 





ASSMLE REVISION 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 
P51-P53 


20’ 35 OCT. 28,1968 PANDORA .080 PAGB T16 
USERaS PACK NO. 24 Es S3 


HEP log 


REP # LAST 715 
REP 9 LAST 715 
REP 179 LAST 718 


715 

14,2742 

0 4555 

0 


TC 

rankcall 

714 

14,2743 

20824 

0 


CADR 

GOPLASH 

714 

14,2744 

1 4106 

0 


TCP 

OOTOPOCH 


14,2745 

0 2752 

0 


TC 

CttCSM 

714 

14,2748 

0 8008 

1 


1C 

INTPRBT 


14,2747 

52014 

0 


CLEAR 

GOTO 

715 

14,2750 

00274 

0 



PREEPLAG 

715 

14,2751 

02777 

1 



CHIN 

718 

14,2752 

0 6006 

1 

crt<gM 

TC 

INTPRBT 


14,2753 

77650 

1 


GOTO 


716 

14,2754 

02777 

1 



(WIN 


14,2755 

01405 

1 

VB6N5 

VN 

605 


V1MUU 1 T^DHO VIM 

(Mi® _ CAL53A 
NAM? - CAL53A 

PINCTICN - coarse ALIGN the IMJ, IP necessary 
CALLING SEOUBNCB - CALL CAL53A 
INPUT - PRESENT GIMBAL ANGIES - CDUX.CDUY.CDUZ 
DESIRED GIMBAL ANGLES - THETAD, +2 
txrmrr - the imu coordinates are stored in repsm'Wt 
a»RQtrriNES USED - I.DMXJArs 2. IMUSTAIL 3.CURWINS 


2 LAST 715 TO 716’ 


0982 





14 , 2756 

45020 1 

CAL53A 

stq 

CAIL 

0983 





14,2757 

00035 1 



29D 

0984 

REP 

2 

LAST 

696 

14,2760 

22256 0 



352. 2 

0985 





14,2761 

68234 1 


RTS 

SSP 

0988 

REP 

1 



14,2762 

32238 1 



menus 

0987 

REP 

27 

LAST 

711 

14.2763 

00051 0 



Si 

0988 





14,2764 

00001 0 



1 

0989 





14,2765 

40370 1 


AXT, 1 

SBTPD 

0990 





14,2766 

00003 1 



3 

0991 





14,2767 

00005 1 


• 

4 

0992 





14,2770 

70543 1 

CALOOP 

DLOAD* SRi 

0993 

REP 

16 

LAST 

587 

14,2771 

01161 0 



THETAD t 

0994 





14,2772 

70523 1 


POOL* 

SRI 

0995 





14,2773 

00005 1 



4,1 

0996 





14,2774 

51425 0 


D&I 

ABS 

0997 





14,2775 

45206 1 


PUS! 

DSU 

0998 

REP 

1 



14,2776 

31053 0 



DEGREEi 

0999 





14,2777 

71240 1 


BW 

DLOAD 

1000 

REP 

1 



14,3000 

31027 0 



CALOOP 1 

1001 





14,3001 

51025 1 


DSU 

BPL 

1002 

REP 

1 



14, -3002 

31054 1 



DEG 35 g 

1003 

REP 

2 

LAST 

716 

14,3003 

31027 0 



CALOOP 1 

1004 





14,3004 

77778 1 

cqarpine exit 


1005 

REP 

197 

LAST 

716 

14,3005 

0 4555 0 


TC 

RANkCAU, 

1006 

REP 

4 

LAST 

421 

14,3008 

16802 1 


CADR 

IMJCQARS 

1007 

REP 

198 

LAST 

716 

14,3007 

0 4555 0 


TC 

bankcau. 

1008 

REP 

9 

LAST 

714 

14,3010 

17518 0 


CADR 

IMIJSTALL 

1009 

REP 

2 

LAST 

714 

14,3011 

0 5644 1 


TC 

CURTA INS 


WkE FINAL COMP OP GIMBAL ANGLES 
READ CDUS 




PERFORM COARSE ALIGNMENT 

request mode switch 








ASSEMBLE REVISION 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 


20 ’35 OCT. 28,1968 PANEfflBA _080 PAGE 717 



L 

P51- 

P53 









1010 

REP 199 

LAST 

Tie 

14,3012 

0 4555 

0 


tc 

BANKCALL 

1011 

HEP 

1 



14,3013 

17012 

1 


CADR 

IMUPIN20 

1012 

REP 200 

LAST 

TIT 

14,3014 

0 4555 

0 


TC 

BANKCALL 

1013 

REP 

10 

LAST 

T16 

14,3015 

17518 

0 


CADR 

LMUSTALL 

1014 

REP 

3 

LAST 

716 

14,3016 

0 5644 

1 


TC 

CURTAINS 

101S 

REP 

180 

LAST 

718 

14,3017 

0 6006 

1 


TC 

INTPR2T 

1010 





14,3020 

77234 

1 


RTB 

VLOAD 

101T 

REP 

1 



14,3021 

31283 

1 



SETT /POT 

1010 

REP 

3 

LAST 

480 

14,3022 

11456 

0 



ZBRCVEC 

1019 

REP 

18 

LAST 

427 

14,3023 

01472 

1 


STORE 

OCCMP 

1020 





14,3024 

52014 

0 


SET 

GOTO 

1021 

REP 

1 



14,3025 

01060 

0 



DRIPIPLG 

1022 

REP 

1 



14,3026 

31031 

1 



PINECNLY 

1023 





14,3027 

77700 

0 

CALOOPi 

TIX.l 


1024 

REP 

1 



14,3030 

30770 

1 



CALOOP 

1025 





14,3031 

75160 

1 

PINECNLY 

AxC.l 

AxC ,2 

1020 

REP 

31 

LAST 

528 

14,3032 

02871 

0 



XS4 

1027 

RHP 

24 

LAST 

713 

14,3033 

01735 

1 



RBP9MAT 

1028 





14,3034 

77624 

1 


CALL 


1029 

REP 

1 



14,3035 

31040 

1 



MATMCVE 

1030 





14,3036 

77650 

1 


GOTO 


1031 





14,3037 

00035 

1 



290 

1032 





14,3040 

77773 

1 

MATMCVE 

VLOHWc 


1033 





14,3041 

00001 

0 



0,1 

1034 





14,3042 

10001 

1 


STORE 

0,2 

1035 





14,3043 

77773 

1 


VLOAD* 


1036 





14,3044 

00007 

0 



60,1 

1037 





14,3045 

10007 

1 


STORE 

60,2 

1038 





14,3046 

77773 

1 


VLCAD* 


1039 





14,3047 

00015 

0 



120,1 

1040 





14,3050 

10015 

1 


STORE 

120,2 

1041 





14,3051 

77616 

0 


fVQ 


1042 





14,3052 

00056 

1 

DBGREEi 

DEC 

46 

1043 





14,3053 

37722 

1 

DEG359 

DEC 

16338 

1044 

REP 

4 

LAST 

714 

15,2000 




SETLOC 

P50S 

1045 





15,2236 




bank 


1046 





15,2236 

0 0004 

0 

RDCDUS 

INHINT 


1047 

REP 

16 

LAST 

661 

15,2237 

3 0032 

0 


CA 

CDUX 

1048 

REP 

12 

LAST 

586 

15,2240 

50 120 

1 


INDEX 

PIXIOC 

1049 





15,2241 

54 001 

1 


TS 

1 

1050 

REP 

7 

[AST 

661 

15,2242 

3 0033 

1 


CA 

CDUY 

1051 

RHP 

13 

LAST 

717 

15,2243 

50 120 

1 


INDEX 

PIXLOC 

1052 





15,2244 

54 002 

1 


TS 

2 

1053 

REP 

10 

LAST 

881 

15 , 2245 

3 0034 

0 


CA 

CDUZ 

1054 

REP 

14 

LAST 

717 

15,2246 

50 120 

1 


INDEX 

PIXIjOC 

1055 





15 , 2247 

54 003 

0 


TS 

3 

1056 





15,2250 

O 0003 

1 


RELINT 


1057 

REP 

5 

LAST 

537 

15,2251 

0 6030 

1 


TC 

DANZIG 

R1058 

NAME 

- on** 








R1059 

UNCTION 

- DETERMINE 

AND COMPUTE THE 

DESIRED GIMRAL ANGLES TO BE 


USER.S PACE NO. XB 


TEST POR MALFIWCTICN 


B5 S3 


TRANSFER MATRIX 


READ CDUS 


FOR COARSE AL!I0*MENT. 



I 



L 


1 

ASSeBLE REVISION 249 OP AOC PROGRAM COLOSSUS BY 

NASA 2021111-0*1 

L 

P51 

-PS 3 





R1081 

CALLING SEQUENCE _ 

CALL GItB 




R10S2 

INPUT - DESIRED IHJ INERTIAL ORIENTATION VECTORS -X SO YSD 

R1063 

OUTPUT - OIM3AL ANGLES 1 EFT 

IN THSTAD.*! 

9 


R1064 

SUBROUTINES USH) - 

l.CDunilG 2.CALCSMSC a.CALCQA 


1065 

REP 

2 LAST 697 

18,2000 


SBTOOC PS0S2 

1066 



18,2587 


bank 


106T 

REP 

1 



COUNT 

14/ INPUT 

1068 



16,2587 

413*5 0 CALCSMSC DLOAD 

DMP 

1069 

REP 

1 

18,2570 

00737 1 


SINCDUY 

1070 

REP 

2 LAST 535 

16,2571 

007*7 0 


COSCDUZ 

1071 



18,2572 

77676 0 

DC CMP 


1072 



16,2573 

70525 1 

POOL 

SRi 

1073 

REP 

2 LAST 535 

18,257* 

007*1 0 


SINCDUZ 

107* 



18,2575 

41325 0 

POOL 

DMP 

1075 

REP 

1 

16,2576 

007*5 1 


COSCDUY 

1076 

REP 

3 LAST 718 

16,2577 

00747 0 


COSCDUZ 

1077 



16,2600 

76466 1 

voep 

VSLl 

1078 

REP 

5 LAST 708 

16,2801 

0271* 1 

STORE 

XNR 

1079 



18,2602 

*13*5 0 

rxOAD 

DMP 

1080 

REP 

3 LAST 535 

18,2603 

007*3 1 


SINCDUX 

1081 

REP 

3 LAST 718 

18,280* 

00741 0 


SINCDUZ 

1082 



16,2605 

77752 1 

SLl 


1083 



16,2806 

00033 1 

STORE 

26D 

108* 



16,2607 

77605 1 

DMP 


1085 

REP 

2 LAST 718 

16,2610 

00737 1 


SINCDUY 

1086 



18,2611 

*1325 0 

PDOC, 

DMP 

1087 

REP 

3 LAST 535 

18,2612 

00751 1 


COSCDUX 

1088 

REP 

2 LAST 718 

16,2613 

00745 1 


COSCDUY 

1089 



16,261* 

77825 0 

DSU 


1090 



16,2615 

41325 0 

POOL 

IMP 

1091 

REP 

* LAST 718 

16,2616 

00743 1 


SINCDux 

1092 

REP 

* LAST 718 

16,2617 

007*7 0 


COSCDUZ 

1093 



16,2620 

77676 0 

DCCMP 


109* 



16,2621 

*1325 0 

POOL 

DMP 

1095 

REP 

* LAST 718 

16,2622 

00751 1 


COSCDUX 

1096 

REP 

3 LAST 718 

16,2623 

00737 1 


SINCDUY 

1097 



16,262* 

*1325 0 

POOL 

DMP 

1098 

REP 

3 LAST 718 

16,2625 

00745 1 


COSCDUY 

1099 



16,2626 

00033 1 


260 

1100 



16,2627 

55*15 1 

DAD 

VDEP 

1101 



16,2630 

77772 0 

VSLl 


1102 

REP 

5 LAST 708 

16,2631 

02730 1 

STORE 

ZN8 

1103 



16,2632 

76 4 35 1 

vxv 

VSLl 

110* 

REP 

8 LAST jig 

16,2633 

0271* 1 


XNB 

1105 

REP 

* LAST *17 

16,2634 

02722 1 

STORE 

YNB 

1108 



16,26 35 

77616 0 

RVQ 


R1107 

NAc'C 

- P51 - IM.J ORIENTATION DETERMINATION 



R1108 

MOD.NO. 2 21 DEC 68 





R1110 

MOD BY SIUHLAUGSCN 







20 ’35 OCT. 28,1963 PANDORA .080 PACK T18 
U3BIUS PACE NO. 28 65 S3 


LOO. SECTION - P51-P53 
ASSRBLY SUNDISK REV15 




I 


ASSEMBLE REVISION 249 OP AGO PROGRAM COLOSSUS BY NASA 2021111-041 20*35 OCT. 28,1988 PANDORA .080 PACK T19 


P51-PS3 


U®R«S PAGE NO. 27 Es S3 


PlHCrlONAL DESCRIPTION 


DETERMINES THE INERTIAL ORIENTATION OP THE IMJ. THE PROGRAM IS SELECTED BY DSKY ENTRY. THE SIGHTING 
ROUTINE IS CALLED TO COLLECT THE CDU COUNTERS AND START AND TRUNNION ANGLES POR A SIGHTED STAR. THE DATA IS 
THEN PROCESSED AS FOLLOWS. 


Ji R1118 
RU20 


1. SEXTANT ANGLES ARE COMPUTE) IN TERMS OP NAVIGATIONAL BASE COORDINATES. LET SA AND TA BE THE 3IAPT AND 
TRUNNION ANGLES, RESPECTIVELY. THEN, 


V = CSINCTA)4COSC SA) , SINCTA)*SINC SA) , COSCTA)) (A COLON VECTOR) 
NB 

THE OUTPUT IS A HALP-UNIT VECTOR STORED IN SIAHM. 


2. THIS VECTOR IN NAV.BASE COORDS. IS THEN TRANSFORMED TO ONE IN STABLE MEMBER COORDINATES. 


T T T - 

V = o *o *o *v , where 

1 2 3 NB 


< COSCIG) 
C 

O = C 0 
1 ( 

( SINCIG) 


-SIN(IG) ) 

) 

0 ), 10= INNER GIMBAL ANGLE 

) 

COSCIG) ) : 


THE GIEHAL ANGLES ARE COMPUTED FROM 
THE CDU COUNTERS AT NBSM CUSING AXIS- 
ROT AND CDULOGIC) 


C COS C MG) SINCMG) 
C 

O = C -SINCMG) COSCMG) 
2 C 

C o 0 


) , MG=MIDOU3 GIMBAL ANGIE 
) 

) 


<1 0 0 > 

C ) 

0 = C 0 COSCOG) SINCOG) ), OG= OUTER GliMIAL ANGLE 

3 « ) 

C o -SINCOG) COSCOG) ) 


3. THE STAR NUMBER IS SAVED AND THE SECOND STAR IS THEN SIMILARLY PROCESSED. 


4. THE ANGLE BETWEEN THE TWO STARS IS THEN CHECKED AT CKSDATA. 


5. REFSMMAT IS THEN COMPUTE) AT AXISGEN AS FOLLOWS. 


LET 3 AND S BE TWO STAR VECTORS EXPRESSED IN TWO COORDINATE SYSTEMS, A AND B CBASIC AND STABLE MEMBER) . 
1 2 


DEFINE, 






I 





1 
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R1160 

R1161 

R1162 

R1163 

R1164 

R116S 

R1166 

R116T 

R1168 

R1189 

R11T0 

RllTl 

R11T2 

R11T3 

R11T4 

RUTS 

R11T6 

R11TT 

R11T8 

R11T9 

R1180 

R1181 

R1182 

R1183 

R1184 

R1185 

R1186 

R118T 

HI 188 
R1189 
R1190 

R1191 

R1192 

R1193 

R1194 

R1195 

R1196 

R119T 


AND 


U = S 
A Ai 


V = UNHYS X S 1 

A Al A 2 


W = U X V 
AAA 


U = S 

R Bi 


V = UNITES X S ) 

B Bi B 2 


W = U X V 
B B B 


THEN 


X = U 4U«-V *V » W 4W 
Bl A Bi A Bi A 


Y sU 4U ♦ V 4V , W *H 
B2 A B2 A Bp A 


Z = U *U + V +V *■ (7 =W 
83 A 83 A B 3 A 


(REPSMAAT) 




THB INPUTS CONSIST OP THE FOUR HAIJMJNIT VECTORS STORED AS Pa JXAvs 


S IN 6-11 OP THE VAC AREA 
Al 


S IN 12-17 OP THE VAC AREA 

A2 


S IN SIARAD 

Bl 
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S IN SWRAD *6 
B2 


R1200 CALLING SEQUENCE 

R1201 THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY. 
R1202 SUBROUTINES CALLED. 


OOPERF3 

OOPERFiR 

GODSPR 

IMUCtMRS 

IMUPIN20 

R53 

SXTNB 

NBSM 

M<HELEAS 

OKSDATA 

MATMCVE 


NCNE. 

ERASABLE INITIALIZATION 


IMU ZERO FLAG SHOULD HE SET. 
OUTPUT 


REPSMMAT 

REPSMFLG 


WORK AREA 

STARAD 

STARIND 

BESTI 

BESTJ 


1227 

REP 

5 

LAST 

715 

14,2000 




SB1LOC P50S1 

1228 





14,3054 




bank 

1229 

REF 

1 







CCUNJ 14/P5153 

1230 

REP 

2 

LAST 

200 

14,3054 



P53 . 

EQUALS P 51 

1231 

REF 

42 

LAST 

381 

14,3054 

4 

1320 0 

P51 

■ cs ■ IMCDES30 

1232 

REP 

26 

LAST 

690 

14 , 3055 

7 

4702 1 


MASK BIT9 

1233 

REF 

1T5 

LAST 

701 

14,3056 

10 

000 0 X 


. CCS A 

1234 

REF 

1 



14,3057 

6 . 

3063 1 « 


1 C , PsiA 










ASS ® BLB REVISIOT *« » A0C PROORA.M COLOSSUS BY NASA 2021111-041 
L PS1-P53 


1235 US' 29 LAST TOO 

1230 

123T REP 54 LAST T18 

1238 REP 201 LAST 717 

1239 REP 1 


1240 

REP 

1 



1241 

REP 

202 

LAST 

722 

1242 

HEP 

5 

LAST 

712 

1243 

REP 

55 

LAST 

722 

1244 

REP 

1 



1245 

REP 

68 

LAST 

714 

1246 





1247 





1246 

REP 

1 



1249 

REP 

17 

last 

716 

1250 

REP 

18 

LAST 

722 

1251 

REP 

19 

LAST 

722 

1252 

REP 

1 



1253 

REF 

203 

LAST 

722 

1254 

REP 

2 

LAST 

442 

1255 

REP 

1 



1256 

REP 

204 

LAST 

722 

1257 

REP 

3 

LAST 

722 

1258 

REF 

205 

LAST 

722 

1259 

REP 

5 

LAST 

716 

1260 

REP 

206 

LAST 

722 

1261 

REP 

11 

LAST 

717 

1282 

REP 

4 

LAST 

717 

1263 

REP ; 

207 

LAST 

722 

1264 

REP 

2 

LAST 

717 

1265 

REP ; 

208 

last 

722 

1266 

REP 

12 

last 

722 

1267 

REP 

5 

LAST 

722 

1268 

REP 181 

LAST 

717 

1269 





1270 

REP 

2 

LAST 

717 

1271 

REP 

4 

LAST 

717 

1272 

REP 

19 

LAST 

717 

1273 





1274 

REP 

2 

LAST 

717 

1275 

REP 

69 

LAST 

722 

1276 





1277 





1278 

REP 

1 




14.3060 

14.3061 

14.3062 

14.3063 

14.3064 


0 5537 0 
00210 1 
0 4106 1 
0 4555 0 
17607 0 


14.3065 

14.3066 

14.3067 

14.3070 

14.3071 

14.3072 

14.3073 

14.3074 

14.3075 

14.3076 

14.3077 

14.3100 

14.3101 

14.3102 

14.3103 

14.3104 
.-i,3105 

14.3106 

14.3107 

14.3110 

14.3111 

14.3112 

14.3113 

14.3114 

14.3115 

14.3116 

14.3117 

14.3120 

14.3121 

14.3122 

14.3123 

14.3124 

14.3125 

14.3126 

14.3127 

14.3130 

14.3131 

14.3132 

14.3133 


3 4720 0 
0 4555 0 
20751 0 
0 4106 1 
0 3134 1 
0 5301 0 
05024 1 
13000 0 
3 4714 1 
55«155 0 
55«156 0 
55«15T 1 
3 3261 1 
0 4555 0 
20577 0 
3 3262 1 
0 4555 0 
20577 0 
0 4555 0 
16602 1 
0 4555 0 
17516 0 
0 5644 1 
0 4555 0 
17012 1 
0 4555 0 
17516 0 
0 5644 1 
0 8006 1 
77234 1 
31263 1 
11456 0 
01472 1 
77414 0 
01060 

0 5301 
05024 
13000 

1 3065 


P5lA 


1C ALAfM 

OCT 210 

1C OOTOPOCH 

1C BANkCALL 

CADR R02ZERO 


PSlAA 


CAP 

TC 

CAM 

TC 

1C 

TC 

OCT 

OCT 

CAP 

TS 

TS 

TS 

CAP 

TC 

CADR 

CAP 

TC 

CADR 

TC 

CADR 

TC 

CADR 

TC 

TC 

CADR 

TC 

CADR 

TC 

TC 

RTB 


STORE 

SET 


TC 

OCT 

OCT 

TCP 


PRFMSTAQ 

BANkCALL 

OOPERPi 

OOTOPOCH 

P51B 

HMsCHNO 

05 024 

13000 

P51ZSRO 

THETAD 

THETAD +1 

THETAD +2 

V6N22 

BANkCALL 

OODSPRET 

V41K 

BANKCA1L 

gcdspret 

BANKCALL 

TMUCCARS 

BANKCAIL 

IMUSTOLL 

curtains 

BANKCALL 

IMJPIN20 

BANKCALL 

IMUSTALL 

CURTAINS 

INTPRET 

VLOAD 

®Tl/PDT 

ZERCVEC 

GCCMP 

Exit 

MIPIPLG 

IWSCHNO 

05024 

13000 

P51AA 
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TERM. 
V 33 


zero the gimbals 


NQ» DISPLAY COARSE ALICN VERB 41 


CAOINO OR BAD END 

SCHEDULE IPAILQC AND IMUPINED TASKS, IN 5 
AND 20 SECS. DIRECT RETURN AND NO STALL, 

ip caoino, but T4 will zero c/a enable 

ip PUT TO SLEEP, IMUFINED WIIL WAKE US 
UP. 




COARSE ALIGN DCNE - RECYCLE FOR PINE 
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L P51-P53 

P12T9 DO STAR SIGHTING At® COMPUTE NEW REPS-MAT 

PSlB 


UffiR«S PACB NO. 31 Es S3 





1280 

REP 

TO 

LAST 

T22 

14,3134 

0 5301 

0 

1281 





14,3135 

00014 

1 

1282 

REP 

182 

LAST 

T22 

14,3136 

0 8006 

1 

1283 





14,3137 

40331 

1 

128* 

REP 

9 

LAST 

T13 

14,3140 

00305 

1 

1285 





14,3141 

00000 

1 

1288 





14,3142 

00001 

0 

128T 





14,3143 

77414 

0 

1288 

HEP 

4 

LAST 

Til 

14,3144 

00666 

1 

1289 

REP 

56 

LAST 

Til 

14,31*5 

3 4712 

1 

1290 

REP 

T 

LAST 

Til 

14,3146 

54 301 

1 

1291 

REP 

T1 

LAST 

T23 

14,3147 

0 5301 

0 

1292 





14,3150 

05024 

1 

1293 





14,3151 

13000 

0 

1294 

REP 

10 

LAST 

511 

14,3152 

0 5 253 

0 

1295 





14,3153 

00065 

1 

1296 

REF 

1 



14,3154 

1 316 2 

0 

129T 

REP 

183 

LAST 

T23 

14,3155 

0 6006 

1 

1298 





14,3156 

7762* 

1 

1299 

REP 

2 

LAST 

T13 

14,3157 

32252 

0 

1300 





14,3160 

77650 

1 

1301 

REP 

1 



14,3161 

31165 

1 

1302 

REF 

184 

LAST 

T23 

14,3162 

0 6006 

1 

1303 





14,3163 

7762* 

1 

130* 

REP 

3 

LAST 

T01 

14,316* 

31322 

0 

1305 





14,3165 

7762* 

1 

1306 

REP 

2 

LAST 

T12 

14,3168 

31266 

X 

130T 





14,3167 

77606 

1 

1308 





14,3170 

53135 

0 

1309 

REF 

10 

LAST 

T23 

14,3171 

00305 

1 

1310 

REF 

1 



14,3172 

31177 

1 

1311 





14,3173 

<5575 

1 

1312 

REF 

T 

LAST 

T13 

14,3174 

75160 

1 

1313 





14,3175 

77650 

1 

131* 

REP 

1 



14,3176 

31205 

1 

1315 





14,3177 

*5575 

1 

1316 

REF 

5 

LAST 

T13 

14,3200 

61168 

1 

1317 

REP 

10 

LAST 

T12 

14,3201 

02607 

1 

1318 





14,3202 

7762* 

1 

1319 

REP 

3 

LAST 

T12 

14,3203 

32363 

0 

1320 

REP 

4 

LAST 

T13 

14,320* 

02601 

1 

1321 





14,3205 

77776 

1 

1322 

REP 

T2 

LAST 

T23 

14,3206 

0 5301 

0 

1323 





14,3207- 

0502* 

1 

132* 





14,3210 

13000 

0 

1325 

REP 

209 

LAST 

T22 

14,3211 

0 *555 

0 

1326 

REF 

8 

LAST 

T12 

14,3212 

16063 

0 


PSlC 


P51C.1 


P510.2 


PSlD 


1C 

WASCHNG 


OCT 

0001* 


TC 

INTPRBT 


SSP 

SBTPO 



STARIND 

INDEX-STAR 1 OR 2 


0 


CLEAR 

0 

EXIT 



WRG2PLG 

aicw star mark-not land mark 

CAP 

BITl 


TS 

mahcindx 

INITIALIZE FOR (HE MARK 

1C 

phaschng 


OCT 

05024 


OCT 

13000 


TC 

CHECKfM 


M* 

53 

BACKUP PROGRAM 

TCP 

PSlC.l 

NOT P53 

1C 

INTPRBT 


CALL 

GOTO 

R58 


1C 

PSlC.2 

INTPRBT 


CALL 

R53 

SIGHTING ROUTINE 

CALL 

compute ids in sm fro* mark data 


SXTSM 


PUSH 

SI LAD 

BZE 



STARIND 



P51» 


VLOAD 

sbadr 


STORE 

SIARSAV2 

DOWNLINK 

GOTO 

VI-OAD 

P5lE 

STADR 


STOOL 

STARSAV1 


CALL 

TSICHT 


STORE 

PIANET 

PIANVEC 


EXIT 

TC 

PHASCHNG 


OCT 

05 02* 


OCT 

13000 


1C 

BANKCALL 


CADR 

M<RELE4S 

ZERO MARKSTAT 


I 
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L P51-P53 


L 


1327 

HEP 

11 

LAST 

723 

1328 

REP 

1 



1329 

REP 

73 

LAST 

723 

1330 





1331 





1332 

HEP 

57 

LAST 

723 

1333 

REP 

12 

LAST 

724 

1334 

REP 

1 



1335 

REP 

74 

LAST 

724 

1336 





1337 





1338 

REP 

185 

LAST 

723 

1339 





1340 

REP 

11 

LAST 

723 

1341 

REP 

4 

last 

723 

1342 

1343 

1344 

REP 

5 

LAST 

723 

1345 

REP 

6 

LAST 

723 

1346 

REP 

6 

LAST 

715 

1347 

HEP 

8 

LAST 

723 

1348 

REP 

9 

LAST 

724 

1349 

REP 

2 

LAST 

714 

1350 





1351 

REP 

7 

LAST 

716 

1352 

REP 

1 



1353 

REP 

2 

LAST 

722 

1354 





1355 

REP 

3 

LAST 

712 

1356 





1357 

REP 

4 

LAST 

534 

1358 

REP 

25 

LAST 

717 

1359 





1360 

REP 

6 

LAST 

696 

1361 

REP 

2 

LAST 

717 

1362 





1363 

HEP 

7 

LAST 

724 

1364 

REP 

2 

LAST 

712 

1365 

REP 

3 

LAST 

697 

1368 

REP 145 

LAST 

715 

1367 

REF 

16 

LAST 

652 

1368 ■ 

1369 

1370 

REP 

13 

LAST 

659 

1371 

REP 

10 

LAST 

529 

1372 

REP 

6 

LAST 

717 


14.3213 

14.3214 

14.3215 

14.3216 
14.321T 

14.3220 

14.3221 

14.3222 

14.3223 

14.3224 

14.3225 

14.3226 

14.3227 

14.3230 

14.3231 

14.3232 

14.3233 

14.3234 

14.3235 

14.3236 

14.3237 

14.3240 

14.3241 

14.3242 

14.3243 

14.3244 

14.3245 

14.3246 

14.3247 

14.3250 

14.3251 

14.3252 

14.3253 

14.3254 

14.3255 

14.3256 

14.3257 

14.3260 
4720 

4714 

4715 

14.3261 

14.3262 

14.3263 

14.3264 

14.3265 


10 304 
1 3223 

0 5301 
05024 
13000 

3 4712 
54 304 

1 3147 
0 5301 

05024 1 
13000 0 
0 6006 
45145 
02607 
32363 
24015 
02801 
24007 
02611 
26736 
02617 
38744 
30702 
77414 
00314 1 
31246 0 
0 3065 
77824 
47334 
75160 
02713 
01735 
45014 
01662 1 
31040 1 
52014 0 
01462 0 
32143 0 


1 

0 

1 

0 

0 

1 

0 

0 

1 

0 

0 

1 

0 


P51P 


P510 


01426 0 
12200 0 
3 0025 0 
55«074 1 
1 6030 0 


PRFMSTAO 

P51ZERO 

P51EIVE 

V 6 N 22 

V41K 

S&n/PDT 


CCS SIARIND 
TCP PsiP 

tc pha screw 
OCT 05024 
OCT -13000 
CAP BITl 
TS SWRIND 
TCP P51C 

tc pka screw 
OCT 05024 
OCT 13000 
TC INTPRET 
DLOAD CALL 

TSIGHT 
PLANET 
STCVL 12D 

PLANVEC 
STCVL gO 

STARSAV1 
STCVL STARAD 

STARSAV2 
SlCALL STARAD ,6 
OK9X4W 
BCN EXIT 

preeflag 

P51Q 

TC P51AA 
CALL 

AxIBGEN 
AxC.i AxC,2 

XDC 

REFS-MAT 
CLEAR CALL 

REPJMPU3 
MATMCVE 
SET GOTO 

RBPS4FLG 
ENDP50S 
= OCT15 

= ZERO 

= FIVE 

VN 0622 

VN 4100 

CA TIMEi 

TS l/PIPADT 

TCP DANZIG 
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STAR 2 


OO DO SECOND STAR 


OIECk STAR ANGLES IN STARAD AND 


CCMS BACK WITH REPS-MAT IN XDC 
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L 


PI 37 3 

sxtsm computes an los vector in s< coord from ocdu and icdu ma 

13T4 





14,3266 

77620 

0 

SXTS4 

S7Q 


1375 

REP 

6 

LAST 

705 

14,3287 

00300 

1 



CMAJ 

1376 





14,3270 

70740 

0 


LXC, 1 

DLGAD* 

1377 

REP 

33 

LAST 

613 

14,3271 

01330 

0 



MARGSIAT 

1378 





14,3272 

00001 

0 



0D,1 

1379 

REE 

12 

LAST 

724 

14,3273 

02607 

1 


STORE 

TSIGHT 

1380 





14,3274 

66744 

0 


LXC.2 

S^»D* 

1381 

REP 

13 

LAST 

724 

14,3275 

00304 

0 



SIARIND 

1382 

REP 

1 



14,3278 

46456 

1 



M<DNCDR,2 

1383 





14,3277 

76744 

1 


LXC, 2 

VLOAD* 

1384 

RES' 

274 

LAST 

709 

14,3300 

00154 

1 



MPAC 

1385 





14,3301 

00001 

0 



0,1 

1386 





14,3302 

10001 

1 


STORE ' 

0,2 

1387 





14,3303 

77743 

1 


DLCWB* 


1388 





14,3304 

00008 

1 



5,1 

1389 





14,3305 

10006 

0 


STORE 

5,2 

1390 





14,3306 

77624 

1 


CALL 


1391. 

REP 

4 

LAST 

568 

14,3307 

46000 

0 



SONB 

1392 





14,3310 

62150 

1 


LXA , 1 

INCR , 1 

1393 

REP 

34 

LAST 

725 

14,3311 

01330 

0 



wrcstat 

1394 





14,3312 

00002 

0 



2 

1395 





14,3313 

45130 

1 


SXA,l 

CALL 

1396 

REP 

28 

LAST 

716 

14,3314 

00050 

1 



31 

1397 

REP 

2 

LAST 

568 

14,3315 

47541 

1 



NBS4 

1398 





14,3316 

77650 

1 


GOTO 


1399 

REF 

7 

LAST 

725 

14,3317 

00300 

1 



CMAJ 

1400 

REP 

9 

LAST 

568 

14,3320 

03674 

1 

MKDNCDR 

BCADR 

MARKDOWN 

1401 

HEP 

2 

LAST 

169 

14,3321 

03502 

0 


ECADR 

MAHK2DWN 


CQ4PU1E LOS VECTOR FRCM OCDU IN ttGVAC 

INCREMENT TO RASE ADR OP ICDU 

TRANgTOFM LOS TO SI 



9 




Pl 402 
R1403 
R1404 

R140S 

R140S 

R1408 

R1410 

R1411 

R1412 

R1413 

R1414 

R1415 

R1416 

R1417 

R1418 
R1419 
R1420 
R1421 
R1422 
R1423 
R1424 
R142S 
Hi 426 

1427 

1428 
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MOD BY STURLAUGSCN 


1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 
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FUNCTIONAL DESCRIPTION 

CAN BP NlWffiR OP SICHTINO MARKS FOR THE REQUESTING PROGRAM (OR ROUTINE) SIGHTINGS 

ST™ " HW * ^ ACCEm A AND STORES 5 ANG^flf 

calling sequence 

R53 IS CALLED AND RETORTS IN INTERPRETIVE CODE. RElUIH IS VIA QPRET 

there is no error exit in this routine itself. 


subroutines called 
sxtmark 

OPTSTYUL 

ooblast 

erasable initialization 

tarcet PLAO - STAR or [ANDMARK 

MARKINDX - NUMBER OP MARKS WANTED 

STARIND - INDEX TO BESTI OR BESTJ (STAR NUMBER) 

OUTPUT 

MARKSTAT CONTAINS index TO VACANT AREA WHERE mark data is stored 
BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER SIGHTED 
DEBRIS 

MARKINDX CONTAINS NUMBER OP MARKS DESIRED 
RBF 2 LAST 622 14,2000 

14,3322 


SETLOC RT53 
BANK 




1429 REF 


COUNT I 4 /R 53 


REP 

REP 


2 LAST 115 
2 LAST 699 


REP 8 
REP 2 
REP 210 
RBF 2 
REP 2 n 
REP 2 
REP e 
REP 35 
REP 15 
REP 1 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


723 

198 

723 

448 

726 

446 

722 

725 

710 


REP 146 LAST 724 
BEP 36 CAST 726 


14.3322 

14.3323 

14.3324 

14.3325 

14.3326 

14.3327 

14.3330 

14.3331 

14.3332 

14.3333 

14.3334 

14.3335 

14.3336 

14.3337 

14.3340 

14.3341 

14.3342 

14.3343 


43020 
03501 
00071 
77776 
3 0301 
7 4716 
0 4555 
16002 
0 4555 
17512 

0 5644 
51*330 
10 052 1 

1 335 0 0 
1 334 2 0 
1 334 2 0 
3 4714 1 
57*330 0 


R53 


R53A 


STO 


EXIT 

CA 

MASK 

1C 

CADR 

TC 

CADR 

TC 

INDEX 

CCS 

TCP 

TCP 

TCP 

CAP 

XCH 


SET 

R53EXIT 

R 53 PIAG 

MAfKINDx 

LOW3 

HANKCALL 
SXTMARK 
BANkCALL 
opts tall 

CUR'D INS 

MARKSTAT 

QPRET 

R53B 

+2 

♦ 1 

zero 

MARKSTAT 


SET SIGHTING MARK FIAG 


NUNBER OP MARKS 


number op marks actually dcne 

zero 
CCS HCXE 

HCUSEKEBP VAC AREA SAVE 
AND MARKSTAT 
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1448 

REF 

116 

LAST 

121 

14,3344 

10 000 

0 


CCS 

A 

1449 

REF 

111 

LAST 

121 

14,3345 

50 000 

1 


INDEX 

A 

1450 





14,3346 

54 000 

0 


T3 

0 

1451 

REF 

1 



14,3341 

1 3326 

1 


TCP 

R53A 

1452 

REF 

11 

LAST 

123 

14,3350 

0 5253 

0 

RS30 

1C 

CHECKM4 

1453 





14,3351 

00026 

0 


144 

22 

1454 





14,3352 

1 3354 

1 


TCP 

♦2 

1455 

REF 

1 



14,3353 

1 3400 

1 


TCP 

R53D 

14551 

REF 

12 

LAST 

121 

14,3354 

0 5 253 

0 


1C 

CHECfOM 

14552 





14,3355 

00021 

1 


m 

23 

14553 

REP 

1 



14,3356 

1 3360 

0 


TCP 

R53C 

14554 

REF 

2 

LAST 

121 

14,3351 

1 3400 

1 


TCP 

R53D 

1456 

REF 

1 



14,3380 

3 3404 

1 

RS3C 

CAP 

VOlNll 

1451 

REF 

212 

LAST 

126 

14,3381 

0 4555 

0 


1C 

bankcaii. 

1458 

REP 

16 

LAST 

111 

14,3382 

20763 

1 


CADR 

GCFIASIR 

1459 

REF 

56 

LAST 

122 

14,3383 

0 4106 

1 


1C 

GOTOPOCH 

1460 

REP 

1 



14,3364 

1 3371 

0 


TCP 

R53Z 

1461 

REF 

2 

LAST 

121 

14,3365 

0 3360 

1 


TC 

R53C 

1462 

REF 

25 

LAST 

111 

14,3388 

3 6211 

0 


CAP 

SIX 

1463 

REF 

14 

LAST 

111 

14,3381 

0 5415 

1 


TC 

blanket 

1464 

REF 

95 

LAST 

111 

14,3310 

0 5112 

0 


TC 

BTOCPJOB 

1465 

REF 

2 

LAST 

416 

14,3311 

4 1113 

1 

RS3Z 

cs 

HKII9 

1466 

REF 

1 

LAST 

111 

14.33T2 

7 0135 

1 


MASK 

SEARCQDE 

1461 





14.33T3 

0 0006 

1 


EXTEND 


1468 

REP 

1 



14,3314 

7 6211 

1 


MP 

SIGHTSIX 

1469 

REP 

68 

LAST 

683 

14,3315 

58 001 

0 - 


XCH 

L 

1410 

REF 

14 

LAST 

125 

14,3316 

50 304 

0 


INDEX 

SlARIND 

1411 

REF 

12 

LAST 

111 

14,3371 

54 302 

1 


TS 

BESTI 

1412 

REF 

186 

LAST 

124 

14,3400 

0 6006 

1 

R5 3D 

TC 

INTPRET 

14T3 





14,3401 

11814 

1 

R53CXJT 

setgo 


1414 

REF 

2 

LAST 

699 

14,3402 

03420 

1 



TEHMIFLG 

1415 

REP 

3 

LAST 

126 

14,3403 

03501 

0 



R53EXIT 

1416 

REP 

26 

LAST 

127 

6211 



SIGHTSIX 

= 

SIX 

141T 





14,3404 

00301 

0 

V01N71 

VN 

0171 


TERM. 

RECYCLE 


SET TERMINATE FOR R52 



1 


2021111-041 






ASS8S4BLB REVISION 249 OP AOC PROGRAM COLOSSUS BY NASA 

WI-P53 


P14T8 

R14T9 

R1480 

R14S1 

R14S2 

R14S3 

1484 

1485 

1486 
148T 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 
149T 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 
150T 

1508 

1509 

1510 

1511 

1512 


RAM8-S52.2 

nwcrioN-cmpurB oimral angles for DesiRai sh and present vehicle 

CALL- CALL S52.2 
INPUT- X.Y.ZSMJ 


CUIPUT- OOC > IOC 1 MOC,THETAD,+i j+ 2 
SlBWXrriNES-aXnSIG.CALCSMkl.MATMOVE CALCQA 

D00 . ' 9 


HBP 

1 



11,2000 

* 


SEILOC S52/2 





11,2256 



bank 


W 

1 






CCXMT 

13/S52.2 





11,2256 

77620 0 

S52.2 

STO 


RHP 

8 

LAST 

725 

11,2257 

00300 1 



CMAJ 





11,2260 

77624 1 


CALL 


w 

T 

LAST 

TOT 

11,2261 

4T432 1 



CDUIRIG 





11,2262 

77624 1 


CALL 


HKP 

2 

LAST 

TOT 

11,2263 

34567 1 



CALCJMsC 





11,2264 

68370 0 


AXT, 1 

SSP 





11,2285 

00022 1 



18D 

KV 

29 

LAST 

T25 

11,2266 

00051 0 



Si 





11,2267 

00006 1 



6D 





11,2270 

61373 1 

S52.2A 

VLOAD* VYM 

HBP 

T 

LAST 

T18 

11,2271 

02736 1 



XNH *18D, 

HP 

28 

LAST 

724 

11,2272 

01736 1 



REPSM4AT 





11,2273 

77658 1 


UNIT 


MOP 

8 

LAST 

728 

11,2274 

08736 0 


STORE 

XNB +1SD,; 





11,2275 

77700 0 


TlX, 1 


HP 

1 



11,2276 

22270 1 



S52.2A 





11,2277 

75160 1 

S52.2.1 

AXC.1 

AxC, 2 

r sp 

6 

LAST 

698 

11,2300 

00306 1 



XS® 

HP 

32 

LAST 

717 

11,2301 

02671 0 



XSM 





11,2302 

77624 1 


CALL 


HP 

3 

LAST 

T24 

11,2303 

31040 1 



matmcve 





11,2304 

77824 1 


CALL 


MX 

2 

LAST 

417 

11,2305 

47244 0 



caloga 





11,2306 

77650 1 


GOTO 


MX 

9 

LAST 

728 

11,2307 

00300 1 



QMAJ 
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PROGRAM NA>E - SR52.1 

MOD 1 

BY KEN VINCENT 


DATE DEC 20 60 

LCD SEC P51-P53 
ASSH«LY SU®I£K REV 40 


FUNCTION 

TAFtOi AND TAHG2 FLAGS ARE LOCKED AT TO BET52NINB IP THE TARGET IS THE 
LEM, STAR OR LANDMARK. IN CASE OP LEM OR LKX.HS PRESENT TI!« PLUS 
2 SECONDS IS SAVED IN AOPTIME (ALIAS STAFAD ,*i ). IP THE LEM IS 
THE TARGET THEN CCNIC UPDATES OF THE CSM AND LEM ARE MADE TO 
THE TIME IN AOPTIME . THE UNIT CF THE DIFFSI3KCg OP LEM AND CgM 
POSITION VECTORS BECOMES THE REFERENCE SIOTTING VECTOR USD IN THE 
CCMvfCN PART OP THIS PROGRAM. 

IN THE CASE OP LANDMARK, THE CSM IS UPDATED CONICALLY. THE RADIUS 
VECTOR FOR THE LANDMARK IS OBTAINED PRCM LALOTORV. BOTH CP THESE ARB 
FOUND FOR THE TIME IN AOPTIME. THE UNIT OP THE DIFFERED BETWEEN 
THE LANDMARK AND CSN RADIUS VECTORS BECOMES THE REFERENCE SIGHTING 
VECTOR FOR THE COMMON PART OP THIS ROUTINE. 

IP A STAR IS THE TARGET, THE PROPER STAR IS OBTAINS) PRCM THE CATALOG 
AND THIS VECTOR BECOMES THE REFERENCE SIGHTING VECTOR. 

THE COMMON PART OP THIS PROGRAM TRANSFORMS IKS REFERENCE SICHTING 
VECTOR INTO STABLE EEJfflER COORDINATES. IT READS THE IMJ-CDUS AND USES 
THIS DATA IN A CALL TO CALCSXA. (N RETURN PRCM CALCSXA A TEST IS 
MADE TO SEE IP THE TRUNNION ANGLE IS GREATER THAN gtjDEG OR 38 DEG. 
MADE TO SEE IP THE THUNNICN ANGLE IS GREATER THAN goDEG. OR 50 DEG. 


CALLING SEQUENCE 


RETURN WHEN SHAFT OR TRUNICN NOT WITHIN 5DBG OF DESIRED 
TO BANKCALL 
CADR SR52.1 

ERROR RETURN THUNNICN GREATER THAN goDBG 
ERROR RETURN THUNNICN GREATER THAN SODEG 
NORMAL RETURN 


OUTPUT 

SAG -SINGLE PRECIS CCMP, SCALED AT HALF REVS- SHAFT ANGLE DESIRED 
PAC -SINGLE PREC.2S COMP SCALH5 AT EIGTH REVS - THJNNICN ANGLE DESIRED 


INITIALIZATION 

IP TARGlFLG =1 THEN TAHGBT IS LEM -NO OIHER INPUT REOUIRTO 
IP TARGlFLG =0 AND TARGpFTjG =0 THE TARGET IS STAR, STARIND SHOW) 

0 OR l DENOTING B8STI OR BBSTJ RESPECTIVELY AS STAR CODE. SIAR CODES 
ARE 6 TIMES STAR NUMBER. 

IP TARGlFLG=0 AND TARG2FLG=1 THEN TARGET IS LANEWAftC. SEE ROUTINE 
LALOTORV FOR INPUT REQUIREMENTS. HERE FIXERAD=1 FOR CONSTANT EARTH 
RADIUS 


DEBRIS 
WORK AREA 

STARAD - STARTS 0S1AR IS DESIRED IX>S IN STARE MEVBRR COORDINATES) 
REP 1 CONI'* SS/SR521 
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1562 

1563 

1564 

1565 

1566 
156T 

1568 

1569 
15T0 
15T1 
15T2 
15T3 
1ST* 
15T5 
15T6 
15TT 
15TB 
15T9 

1580 

1581 

1582 

1583 

1584 

1585 

1586 
158T 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 
159T 

1598 

1599 

1600 
1601 
1602 

1603 

1604 

1605 

1606 
160T 
1608 

1609 

1610 


4 
11 

18T 

21 

1 

3 

6 

1 

5 
1 


4 

40 

4 


«P 27 
REP 1 


REP 

REP 

REP 


RBP 10 
REE u 
REP e 
REP 41 
HEP 6 

REP 12 
REP 28 

HEP 1 

REP 30 

REP 15 

RBP 1 

REP 9 


last 707 
LAST 716 
LAST 727 

LAST 711 

LAST 89 

LAST 711 

LAST 723 


LAST 730 
LAST 704 
LAST 586 

LAST 705 


LAST 702 

LAST 730 

LAST 698 

LAST 698 
LAST 445 
LAST 730 
LAST 730 
LAST 704 

LAST 730 
LAST 730 


LAST 728 
LAST 727 

(AST 724 


13,2000 

13,2176 

13.2176 

13.2177 

13.2200 

13.2201 

13.2202 

13.2203 

13.2204 

13.2205 

13.2206 

13.2207 

13.2210 

13.2211 

13.2212 

13.2213 

13.2214 

13.2215 

13.2216 

13.2217 

13.2220 

13.2221 

13.2222 

13.2223 

13.2224 

13.2225 

13.2226 

13.2227 

13.2230 

13.2231 

13.2232 

13.2233 

13.2234 

13.2235 

13.2236 

13.2237 

13.2240 

13.2241 

13.2242 

13.2243 

13.2244 

13.2245 

13.2246 

13.2247 

13.2250 

13.2251 

13.2252 

13.2253 

13.2254 


8EILOC SR52/1 
BANK 


0 4604 1 

SR52.1 

1C 

makecadr 

55«777 0 


TS 

CM IN 

0 6008 1 


1C 

IN TP RET 

43234 0 


RIB 

DAD 

45505 0 



LOADTIMB 

26317 0 



1.3SBCDP 

02356 0 


STORE 

aoptb-e 

43014 0 


BCN 

BCN 

00705 0 



TARGiPLG 

28214 1 



LPS452 

00706 0 



•DABG 2 FLG 

28224 1 



U+C52 

77650 1 


GOTO 


26245 0 



SEARS 2 

77745 1 

LPM52 

DLOAD 


02356 0 



aoptime 

34041 0 


STCALL IDECi 

27057 0 



LifC CM IC 

77775 1 


VLOAD 


00001 0 



RATT 

77650 1 


GOTO 


26234 0 



ITKLMCCM 

71214 0 

LML52 

BCN 

DLOAD 

04305 0 



ADVTRK 

54000 0 



ADVTRACk 

02356 0 



aoptime 

77624 1 


CAUL 


26373 1 



LALOTORV 

77775 1 


VLOAD 


02152 0 



ALPKAv 

16768 1 

LMOMCCM 

STODL 

STAR 

0 235 6 0 



AOPTIME 

34041 0 


STCALL 

TDECi 

27045 0 



CS4CCNIC 

52375 1 


VLOAD 

VSU 

02766 1 



SEAR 

00001 0 



RATT 

52056 0 


UNIT 

GOTO 

26260 1 



CCM 52 

72131 1 

SEARS 2 

SSP 

LXA , 1 

00051 0 



Si 

00000 1 



0 

00304 0 



searind 

77700 0 


TlX, 1 


26256 1 



ST52ST 

52175 0 


VT.OAD 

GOTO 

02617 0 



STARS4V2 
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1811 

HEP 

2 

LAST 

730 

13,2255 

26260 

1 


1612 





13,2256 

77775 

1 


1613 

REP 

T 

LAST 

724 

13,2257 

02611 

0 


1614 





13,2260 

53521 

1 

1 

1615 

REP 

27 

LAST 

728 

13,2261 

01736 

1 


1616 

REP 

13 

LAST 

730 

13,2282 

02768 

1 


161T 





13,2263 

45001 

1 


1618 





13,2264 

00001 

0 


1619 

REP 

8 

LAST 

728 

13,2265 

47432 

1 


1620 





13,2266 

77624 

1 


1621 

REP 

1 



13,2287 

46034 

1 


1622 





13,2270 

77414 

0 


1623 

REP 

6 

LAST 

710 

13,2271 

01750 

1 


1624 

REP 

1 



13,2272 

26274 

1 


1625 

HEP 

1 



13,2273 

0 2312 

0 


1626 





13,2274 

45345 

1 


1627 

REP 

6 

LAST 

700 

13,2275 

02776 

0 


1628 

REP 

1 



13,2276 

26315 

1 


1629 





13,2277 

71244 

0 


1630 

REP 

1 



13,2300 

26305 

0 


1631 

REP 

9 

LAST 

731 

13,2301 

02776 

0 


1632 





13,2302 

51025 

1 


1633 

HEP 

1 



13,2303 

26 321 

0 


1634 

REP 

1 



13,2304 

26307 

1 


1635 





13,2305 

77778 

1 

. Mk <■ 

1638 

REP 

1 



13,2306 

0 2311 

0 

1637 





13,2307 

77776 

1 


1638 

REP 

12 

LAST 

730 

13,2310 

25*777 

1 


1639 

REP 

13 

LAST 

731 

13,2311 

25*777 

1 


1640 

HEP 

14 

LAST 

731 

13,2312 

3 1777 

1 


1641 

REP 

4 

[AST 

710 

13,2313 

0 4561 

1 


1642 





13,2314 

25252 

0 


1642 





13,2315 

25254 

0 


1643 





13,2316 

00000 

1 


1643 





13,2317 

00202 

1 


1644 





13,2320 

61740 

0 


1645 





13,2321 

77777 

0 


ST52ST VLQAD 

CCM52 ttCV 

STORE 

ffiTPD 

CALL 

BCFP 


1C 

THJN38 DLOVD 


BPL 


DSU 


SR52S22 EXIT 
1C 

SR52E3 EXIT 
INCR 

SR52E2 INCR 
SRS2E1 CA 
1C 

38TODEG 2DEC 


CQ452 

STARSAV1 

UNIT 

RSPSM4AT 

STAR 

CALL 

0 

CDUTOIG 

CALCSXA 

EXIT 

CULTPLAG 

TE5JN38 

SR52E1 

DSU 

PAC 

38HOBG 

DLCAD 

SR52E22 

PAC 

BPL 

20DBOS'N 

SR52E3 

SR52E2 

CM IN 
CM IN 
CM IN 
SKCALL 
.66666667 


1.3SBCDP 2 &ec 130 


CCMPUTBS SINES AND COSINES FOR CALCSXA 
NO» EXPECT TO SEE THE GDU ANGLES. 


CORESPCNDS TO 50 DEGS IN TBUNICN 


20DBGS^< DEC 
Dec 


-07199 

-0 
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P1646 THB ADVTRACK RCXJTINE Is USED TO CCKPUIE AN OPTICS LOS VECTOR TO 

? 1 f 4T GRtXND 60 DSOHSSS FORWARD OF THE LOCAL VERTICAL 

R1648 OP AN ADVANCED ORBIT A SPECIFIED NUMBER OP REVOLUTIONS FROM NOT 


REP 1 



26,2000 

26,2000 


ffiTLOC 28P50S 
RANK 


26,2000 

77601 0 

ADVTRACK SETPD 


26,2001 

00001 0 

0 


26,2002 

41575 0 

VLOAD MSI 

32 

26,2003 

15324 0 

UNITE 


26,2004 

41434 1 

RTB PUSH 

730 

26,2005 

45505 0 

loadtine 

730 

26,2008 

36356 1 

STCALL AOPTINE 

697 

26,2007 

55 341 1 

RP-TO-R 

731 

26,2010 

16786 1 

STODL STAR 

732 

26,2011 

02356 0 

aoptine 

730 

26,2012 

34041 0 

STCALL TDECi 

730 

26,2013 

27045 0 

CSMCCNIC 


26,2014 

47375 0 

VLOAD VXV 

70S 

26,2015 

00007 0 

vatt 

730 

26,2016 

00001 0 

RATT 


REF 30 LAST T32 


1673 

REF 

23 

LAST 

614 

1674 

REP 

12 

LAST 

595 

1675 





1876 

REP 

22 

LAST 

687 

1677 

REP 

69 

LAST 

T27 

1678 

REP 

15 

LAST 

TIT 

1679 

1680 

REP 

180 

LAST 

730 

1681 





1682 





1683 

REP 

1 



1684 

REP 

9 

LAST 

732 

1685 

REP 

1 



1686 





1687 





1688 

REP 

15 

LAST 

732 

1689 

1690 

REP 

1 



1691 

REP 

10 

LAST 

T32 

1692 

REP 

11 

I A ST 

732 

1693 

REP 

2 

LAST 

732 

1694 






28,2017 

28,2020 

28,2021 

26,2022 

26.2023 

26.2024 

28.2025 
26,2028 
28 , 2027 

28.2030 

28.2031 

26.2032 

26.2033 

26.2034 

26.2035 

28.2036 

26.2037 

26.2040 

26.2041 

26 . 2042 

28.2043 

28 . 2044 

26.2045 

26.2046 

28 . 2047 

26.2050 

26.2051 

26.2052 

28.2053 


I 


77658 1 
24031 0 
00001 0 
57456 1 
41401 1 
00001 0 
77776 1 
3 1751 0 
7 4716 1 
0 0006 1 
7 4700 0 
58 001 0 
50 120 1 
54 036 0 
0 6006 1 
41335 1 
00037 0 
14107 1 
38356 1 
54057 1 
77775 1 
00031 0 
16766 1 
14105 0 
77625 0 
02356 0 
36 356 1 
54057 1 
77775 1 


exit 

CA 

MASK 

extend 

MP 

XCH 

INDEX 

TS 

TC 

SLOAD 


LANDMARK 

SEVEN 


BITll 

L 

PIXLOC 

30D 

INTPHET 

DMP 

30D 

MPERICD 

aoptime 

ROW 


AOPTIME 

. aoptime 

ROTA 


INITIALIZE FOR RP-TO-R 
UZ VEC IN PD 0-5 
TDE IN PD 8-7 


TINE ALSO IN AOPTIME FOR CSMCCNTC 
GET MOCN ROTATION VEC IN REF 


PICK UP TIME 
UPDATE STATE TO TIME 


SAVE -UNJTfV X R) FOR 2ND ROTATION 


PUSH LOS=-tWIT<RVEC) PD 0-5 


GET NIM1ER OF ADVANCE PERIODS 
GET N/16 




TRMP STORE N/16 


ROTATE ANG ABOUT UR 


PICK UP 2ND ROIATICK AXIS 


2 ND RAT ANGIE = 60 - A 


GO ROTATE 2ND TIME 






VIXttD 


I 
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1695 





26,2054 

00001 

0 



0 


1696 

REP 

16 

LAST 

732 

28,2055 

36766 

0 


STCALL 

SWR 

STORE PINAL LOS IN SWR 

1697 

REP 

3 

LAST 

731 

26,2058 

26260 

1 



CCM52 

HEIURN TO SR52.1 

1698 





26,2057 

73545 

1 

ROW 

DLCAD 

SIN 


1699 

REP 

12 

I A ST 

732 

28,2060 

02356 

0 



AOPTIhC 


1700 





26,2061 

47315 

0 


PDVL 

VXV 

PUSI 1/2SINIA) PD 6-7 

1701 

REP 

17 

LAST 

733 

28,2082 

02766 

1 



SWR 

UR VEC 

1702 





26,2063 

00001 

0 



0 

LOS 

1703 





26,2064 

72561 

0 


VXSC 

VSL2 

l/2SIN(A)(URXLOS) PD 6-11. 

1704 





26,2085 

50315 

0 


PDVL 

DOT 


1705 

REP 

18 

LAST 

733 

26,2066 

02766 

1 



SWR 


1706 





26 ,2087 

00001 

0 



0 


1707 





26,2070 

72561 

0 


VXSC 

VSL2 


1708 

REP 

19 

LAST 

733 

26,2071 

02766 

1 



SWR 


1709 





28,2072 

71525 

0 


POOL 

COS 

1/2(UR . LOSMJR 12-17 

1710 

REP 

13 

LAST 

733 

28,2073 

02356 

0 



AOPTIME 


1711 





26 , 2074 

51315 

1 


PDVL 

BVSU 

PUSI 1/2COSCA) 18-19 

1712 





26,2075 

00015 

0 



12D 


1713 





28,2076 

00001 

0 



0 


1714 





26,2077 

76561 

1 


VXSC 

VSLl 

UP 18-19 

1715 





26,2100 

53255 

0 


VAD 

VAD 

UP 12-17 UP 6-11 

1716 





28,2101 

40256 

1 


UNIT 

SBTPD 


1717 





28,2102 

00001 

0 



0 


1718 





26,2103 

43406 

1 


PUSH 

RVO 


1719 





26,2104 

05252 

1 

DPi/6 

2DGC 

.18666666 


1719 





28,2105 

25251 

0 





1720 





28,2108 

01414 

1 

MPERIOD 

2DEC 

.047619 - 

APPROX LUNAR ROT ANG IN 2HHS X 16 

1720 





26,2107 

06044 

1 
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P1T21 

NANB-S52.3 







R1T2 2 

PUNCriON- XSM3: UNIT! YSM> X ZSM3) 




R1723 



Ysa>= UNITIV X R) 





R1T24 



ZSMD= UNIT<-R> 





R1T25 

CALL 

DLOAD CALL 





R1T26 




TALI®! 





R1T2T 




S52. 

3 





R1T28 

INPOT- 

TIM? OP ALIGNMENT IN 

MPAC 




R1T29 

0UTPUT- 

X.Y.ZS® 






R1T30 

SUBROUTINES- CS4CCNIC 





1T31 

REP 

3 

LAST 

718 

16,2000 



SBTLOC PS0S2 

1T32 





16,2636 



RANK 


1T33 

REP 

1 






CCUNT 

15/S52.3 

1734 





16,2636 

77620 

0 $52.3 

STQ 


1735 

REP 

10 

LAST 

728 

16,2637 

00300 

1 


CMAJ 

1736 

REP 

43 

LAST 

732 

18,2640 

34041 

0 

SICALL TOBCi 

1737 

REP 

8 

LAST 

T32 

16,2641 

27045 

0 


CSNCCNIC 

1738 





16,2642 

77601 

0 

SETPO 


1739 





16,2643 

00001 

0 


0 

1740- 





18 , 2644 

57575 

1 

VLOAD 

VCCMP 

1741 

REP 

31 

LAST 

732 

16,2645 

00001 

0 


ratt 

1742 





16,2646 

77656 

1 

UNIT 


1743 

REP 

3 

LAST 

898 

16,2647 

24323 

0 

STCVL 

ZSM> 

1744 

HEP 

21 

LAST 

732 

16,2650 

00007 

0 


vatt 

1745 





16,2651 

53435 

0 

VXV 

tNIT 

1746 

REF 

32 

LAST 

734 

16,2652 

00001 

0 


RATT 

1747 

REP 

4 

LAST 

698 

16,2653 

00315 

0 

STORE 

YS® 

1748 





16,2654 

53435 

0 

VXV 

UNIT 

1749 

REP 

4 

LAST 

734 

16,2655 

00323 

0 


ZS® 

1750 

REP 

7 

LAST 

728 

16,2656 

34307 

1 

SICALL XSMD 

1751 

HEP 

11 

LAST 

734 

16,2657 

00300 

1 


CMAJ 
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USERaiS PAGE NO. 43 


E5 S3 


R1T53 

R1T54 

R1T56 

R1T58 

R1T60 


PVNCTIONAL DESCRIPTION 

TO PERFORM SIGHTING MARKS FOR 1HE RACK -UP ALIGNMENT PROGRAMS (P53.P54). THE ASTRONAUT KNOWS THE 
COORDINATES (OPTICS) OP THE ALTERNATE LINE OP SIGHT KB MUST USE FOR THIS ROUTINE. WHEN THE ASTRONAUT KEYS IN 
ENTER IN RESPONSE TO THE FLASHING V50 N25 Rl-XXXXX THE OC STORES THE THREE ICDU ANGLES AND TWO ANGLES DISPLAYED 
IN N92. 


R1T61 

R1T82 

R1T83 


CALLING SEaENCE 
CALL 

R5S 


R1T64 

R1765 

R1T68 

R1T6T 


SUBROUTINES CALLS) 

A PORTION OP SXTMARK (VAC .AREA SEARCH) 

GOFLAS1 

QOPERFl 


R1T88 

R1T69 


erasabie initialization 

STAR IND- INDEX TO SWR NUPBBR 


RlTTO 

R1TT1 

R1TT2 

R1773 


airpur 


MAFKSTAT- INDEX TO VAC .AREA WHERE OUTPUT IS STORED. 
BBSTI (INDEXED BY SIARIND) CONTAINS STAR NUMBER. 
ICDU AND OCDU ANGLES IN VAC. AREA AS FOLLCWS- 


# ' 


R1TT4 



VAC 

♦2 1 

CDUY 



R1775 



VAC *3 1 

CDUS 



R1TT6 



VAC 

♦4 1 

CDUZ 



R1TTT 



VAC 

♦5 ' 

hdut 



R1TT8 



VAC 

♦8 ' 

oxdc 



1TT9 

REP 

1 






1780 

HEP 

5 

LAST 

717 

15,2000 



1781 





15,2252 



1782 





15,2252 

77776 

1 

1783 

REF 

1 



15,2253 

3 2382 

1 

1784 

REF 

213 

LAST 

7Z7 

15,2254 

0 4555 

0 

1785 

REF 

34 

LAST 

Tie 

15,2255 

20624 

0 

1788 

REP 

57 

LAST 

727 

15,2256 

0 4106 

1 

' 1787 

REP 

1 



15,2257 

0 2261 

0 

1788 





15,2260 

0 2253 

1 

1789 

REF 

214 

LAST 

735 

15,2261 

0 4555 

0 

1790 

REF 

3 

LAST 

726 

15,2262 

16004 

1 

17904 

REP 

147 

LAST 

726 

15,2263 

3 4714 

1 

17905 

REF 

215 

LAST 

735 

15 , 2264 

' 0 4555 

0 

17906 

REF 

6, 

LAST 

715 

15,2265 

20607 

1 

1791 

REP 

X 



15,2266 

3 2360 

0 

1792 

REP 

216 

LAST 

735 

.15,2267 

0 4555 

0 

1793 

REP 

3 

LAST 

563 

15,2270 

20470 

0 




R56 


R56A 


CQJNT* 

SETLOC 

BANK 

EXIT 

CAF 

TC 

CADR 

TC 

TC 

TC 

TC 

CADR 


SS /R56 
P50S 


VO6N94B 

BANKCAU, 

GCFLAal 

GOTOPOCH 

R58A 

-5 

BANKCALL 
SXTMARK +2 


TERM. . 

PROCEED. - ANGLES CK 
ENTER - NEW' ANGIES 


inhtbir ext vb act and find vac area 


CAF 

TC 

CADR 


zero 

BANkCALL 

CLEANDSP 


CAP Vf)53 

TC BANKCALL 

CADR GCMARK2 


DISPLAY V53 REQUESTING ALTERNATE MARK 
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1794 

KP 

58 

LAST 

735 

17*5 

IBP 

2 

LAST 

735 

17951 

ttv 

189 

LAST 

732 

1T052 

1T953 

my 

38 

LAST 

575 

17954 

IBP 

10 

LAST 

701 

17956 

BSP 

37 

LAST 

738 

IT 957 

■HP 

10 

LAST 

731 

1T956 

1T96 

1197 

1T96 


25 

LAST 

695 

1T99 

wop 

37 

LAST 

726 

IBM 

1601 

wap 

8 

LAST 

717 

1802 

w 

38 

LAST 

736 

1803 

1804 


11 

LAST 

736 

ISOS 

BSP 

39 

LAST 

736 

1800 

1807 

WOP 

11 

LAST 

717 

1808 

my 

40 

LAST 

736 

1809 

1810 

mr 

11 

LAST 

736 

1811 

my 

41 

LAST 

736 

1812 

1813 

my 

17 

LAST 

717 

1814 

my 

42 

LAST 

736 

1815 

1816 
18161 

■HP 

4 

LAST 

701 

1817 

1818 

HP 1 
««P 217 

LAST 

735 

1819 

HP 

0 

LAST 

722 

1820 

HP 

59 

LAST 

736 

1821 

1822 

»BP 

■HP 

1 

3 

LAST 

736 

18225 

my 148 

LAST 

735 

1823 

my 218 

LAST 

736 

1824 

my 

T 

LAST 

735 

1825 

1820 

1 

REP 219 

LAST 

736 

1827 

(HP 

35 

LAST 

735 

1828 

HP 

80 

LAST 

736 

1829 

1830 

my 

2 

LAST 

736 

1831 

my 

3 

LAST 

727 

1832 

my 

* 

LAST 

727 


1833 


15.2271 

15.2272 

15.2273 

15.2274 

15.2275 
15,2278 
15,2277 

15.2300 

15.2301 

15.2302 

15.2303 

15.2304 

15.2305 

15.2306 

15.2307 

15.2310 

15.2311 

15.2312 

15.2313 

15.2314 

15.2315 

15.2316 

15.2317 

15.2320 

15.2321 

15.2322 

15.2323 

15.2324 

15.2325 

15.2326 

15.2327 

15.2330 

15.2331 

15.2332 

15.2333 

15.2334 

15.2335 

15.2336 

15.2337 

15.2340 

15.2341 

15.2342 

15.2343 

15.2344 

15.2345 

15.2346 

15.2347 

15.2350 

15.2351 


1 4106 0 
1 228 3 0 
0 6006 1 
T7745 1 
03731 1 
16774 1 
03733 0 
02778 0 
T7776 1 
0 0004 0 
0 0006 1 
3 0025 O' 
51-330 0 
52 001 1 
3 0033 1 
51-330 0 
54 002 1 
3 1773 0 
51«330 0 
54 003 0 
3 0034 0 
51-330 0 
54 004 1 
3 1775 0 
51-330 
54 005 
3 0032 
51-330 
54 006 
0 0003 
0 5425 1 
3 4333 0 
0 4555 0 
20751 0 

0 4106 1 

1 2336 1 
1 2263 0 
3 4714 1 
0 4555 0 

20607 1 


3 2361 1 
0 4555 0 

20624 0 
0 4106 1 

0 2347 0 

1 2336 1 

4 7713 1 
7 0735 1 
0 0006 1 


R56B 


TCP GOTOPOCH 
KP R5&A +2 
1C INTPRET 
DLQAD 

►69CBUP1 +3 
5TODL SAC 

MROUPi +5 
STORE PAC 
EXIT 
INHINT 
extend 
DCA TIME2 
INDEX MAFSCSTAT 
DXCH 0 
CA CDUY 
INDEX MARKSTAT 
TS 2 
CA SAC 
INDEX MAR<STAT 
TS 3 
CA CDUZ 
INDEX MARKSTAT 
TS 4 
CA PAC 
INDEX MARKSTAT 
TS 5 
CA CDux 
INDEX MARKSTAT 
TS 6 
RELINT 

1C CLEAflMRK 
CAE OCT16 
1C BANKCALL 
CADR GOPEREl 
1C GOTOPOCH 
TCP R56B 
TCP R56A +2 
CAP ZERO 
1C BANKCALL 
CADR CLEANDSP 


CAP 

1C 

CADR 

TC 

TC 

TCP 

CS 

MASK 

EXTEND 


V01N71B 

BANKCAU, 

GOFTASH 

GOTOPOCH 

*2 

R56B 

HICHg 

STARCCDE 
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V34-7ERMINATB 

V33-OCNT PROCEED-JUST B4IER TO MARK 


ENTER- THIS IS A BACKUP SYSTEM MARK 



ENA HIP EXTENDED VERBS 


TERM. 

PROCEED -.MARK COMPIPTTO 
RECYCLE - DO ANOTHER MARK - LIKE REJECT 


RECYCIP 
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1834 

REP 

27 

LAST 

727 

15,2352 

7 6211 

1 


MP 

SIX 

1835 

REP 

70 

LAST 

732 

15,2353 

56 001 

0 


XCH 

L 

1836 

REP 

16 

LAST 

730 

15,2354 

50 304 

0 


INDEX 

STARIND 

183T 

REP 

13 

LAST 

727 

15,2355 

54 302 

1 


TS 

BESTI 

1838 

REP 190 

LAST 

736 

15,2356 

0 6006 

1 


TC 

INTPRBT 

1839 





15,2357 

77618 

0 


RVO 


1840 





15,2380 

15200 

1 

VB53 

VN 

05300 

1841 





15,2361 

00307 

0 

V01N71B 

VN 

00171 

1842 





15,2362 

01536 

0 

V06N94B 

VN 

00694 

1843 

REP 

13 

LAST 

725 

15,2363 

02607 

1 

PLANET 

STORE 

TSICHT 

1844 





15,2364 

45020 

1 


STO 

CALL 

1845 

REP 

15 

LAST 

731 

15,2365 

02777 

1 



CHIN 

1846 

REP 

2 

LAST 

696 

15,2366 

30216 

1 



LOCSAM 

1847 





15,2367 

77775 

1 


VLQAD 


1848 

REP 

5 

LAST 

704 

15,2370 

02736 

1 



VEAR1H 

1849 





15,2371 

24001 

0 


STOVL 

0D 

1850 

REP 

8 

LAST 

705 

15,2372 

02744 

1 



VSUN 

1851 

REP 

6 

LAST 

737 

15,2373 

28736 

1 


STOVL 

VEARTH 

1852 





15,2374 

00001 

0 



0D 

1853 

REP 

9 

LAST 

737 

15,2375 

02744 

1 


STORE 

VSUN 

1854 





15,2376 

77776 

1 

NOSAM 

EXIT 


1855 

REP 

4 

LAST 

738 

15,2377 

4 7713 

1 


CS 

HIGM9 

1856 

REP 

9 

LAST 

736 

15,2400 

7 0735 

1 


MASK 

STAHCCDE 

1857 





15,2401 

0 0006 

1 


EXTTMD 


1858 

REP 

2 

LAST 

727 

15,2402 

7 6211 

1 


MP 

SltHTSIX 

1859 

REP 

71 

LAST 

737 

15,2403 

58 001 

0 


XCH 

L 

I860 

REP 

17 

LAST 

737 

15,2404 

50 304 

0 


INDEX 

SWRIND 

1881 

REP 

14 

LAST 

737 

15 , 2405 

54 302 

1 


TS 

BESTI 

1862 

REP 

178 

LAST 

727 

15,2406 

10 000 

0 


CCS 

A 

1863 

RHP 

1 



15,2407 

1 2423 

1 


TCP 

NOTPLAN 

1864 

REP 

1 



15,2410 

3 2453 

1 


CAP 

vnplanv 

1865 

REP 

220 

LAST 

736 

15,2411 

0 4555 

0 


TC 

bankcall 

1866 

REP 

36 

LAST 

736 

15,2412 

20624 

0 


CADR 

G0PLA33 

1867 

REP 

61 

LAST 

736 

15,2413 

0 4106 

1 


TC 

GOTOPOCH 

1868 





15,2414 

0 2416 

0 


TC 

♦2 

1869 





15,2415 

0 2410 

0 


TC 

-5 

18T0 

REP 

191 

LAST 

737 

15,2416 

0 6006 

1 


TC 

INTPRET 

1871 





15,2417 

53575 

0 


VLQAD 

UNIT 

18T2 

REP 

20 

LAST 

733 

15,2420 

02768 

1 



STAR 

1873 





15,2421 

77650 

1 


GOTO 


1874 

REP 

1 



15,2422 

32446 

0 



CORPLAN 

1875 

REP 

179 

LAST 

737 

15,2423 

4 0000 

0 

NOTPLAN 

CS 

A 

1876 

REP 

1 



15,2424 

6 2452 

0 


AD 

D6C227 

1877 





15,2425 

0 0006 

1 


EXTOTO 


1878 

REP 

1 



15,2426 

6 2437 

0 


BZMP 

CAI.SAMl 

1879 

HEP 

18 

LAST 

737 

15,2427 

50 304 

0 


INDEX 

STARIND 

1880 

REP 

15 

LAST 

737 

15,2430 

3 0302 

0 


CA 

BESTI 

1861 

REP 

16 

LAST 

T32 

15 , 2431 

50 120 

1 


INDEX 

PIXLOC 

1882 

REP 

32 

LAST 

708 

15,2432 

54 046 

1 


TS 

XI 

1883 

REP 

192 

LAST 

737 

15,2433 

0 6006 

1 


TC 

INTPRET 
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1884 





15,2434 

52173 0 


VLCHD* 

GOTO 

1885 

HEP 

10 

LAST 

709 

15,2435 

31744 1 



CATLOOjl 

1886 

REP 

2 

LAST 

737 

15,2436 

32446 0 



CORPLAN 

188T 

REP 

193 

LAST 

737 

15,2437 

0 6006 1 

CALSAMi 

TC 

INTPR2T 

1888 





15,2440 

70740 0 


LXC, 1 

DLCAD* 

1889 

REP 

19 

LAST 

737 

15,2441 

00304 0 



STARIND 

1890 

REP 

16 

LAST 

737 

15,2442 

00303 1 



besti,i 

1891 





15,2443 

76740 0 


LxC, 1 

VLCHD* 

1892 

REP 

275 

last 

725 

15,2444 

00154 1 



MPAC 

1893 

REP 

10 

LAST 

724 

15,2445 

02372 0 



STARAD -228D,i 

1894 





15,2446 

53455 0 

CCRPIAN 

VAD 

UNIT 

1895 

REP 

5 

LAST 

705 

15,2447 

03474 0 



vela: 

1896 





15,2450 

77650 1 


GOTO 


1897 

REP 

16 

LAST 

737 

15,2451 

02777 1 



CM IN 

1898 





15,2452 

00343 0 

DEC22T 

DEC 

227 

1899 





15,2453 

01530 0 

VNPLANV 

VN 

0668 


USBR-S PACE NO. 48 


B5 83 
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L LUNAR AND SOLAR EPH2-ERIDSS SLBRauriNES USERaS PAGE NO. 1 Eq S3 

P0001 lunar am> sour ephembrides subroutines 

R0002 FUNCTIONAL DESCRIPTION 

RO003 TWSS SUBROUTINES ARE USED TO DETERMINE THE POSITION AND VELOCITY 

R0004 VECTORS OP WE SUN AND THE MOOJ RELATIVE TO THE EARTH AT THE 

R0005 SPECIFIED GROUND ELAPSED TIMS INPUT BY THE USER. 

R0008 UK POSITION OP THE MOON IS STORED IN THE COMPUTER IN THE FORM OP 

ROOOT A NINTH DEGREE POLYNOMIAL APPROXIMATION WHICH Is VALID CVER A is 

RO008 DAY INTERVAL BEGINNING SHORTLY BEFORE LAUNCH. THEREFORE THE TIEE 

R0009 INPUT BY THE USER SIOULD FALL WITHIN THIS 15 DAY INTERVAL. 

R0010 LSPOS COMPUTES THE POSITION VECTORS OP THE SUN AND THE MOON. 

R0011 UMP08 COMPUTES THE POSITION VECTOR OF THE MOON. 

R0012 UNVM. COMPUTES THE VELOCITY VECTOR OP THE MOCN. 

R0013 SOLPOS COMPUTES THE POSITION VECTOR CP THE SUN. 

R0014 CALLING ffiOUENCB 

R0015 mow CALL* 

R0016 TI1K GROUND ELAPSED TINE 

R001T SUBROUTINE LSPOS OR LUNPOS OR LUNVEL OR SOLPOS 

R00I8 INPUT 

RO019 1) SPECIFIED GROUND ELAPSED TIME IN Cs X B-28 LOADED IN MPAC. 

R0020 2» TEEMO - TIME AT THE CENTER OP THE RANGE OVER WHICH THE LUNAR 

R0021 POSITION POLYNOMIAL IS VALID IN Cs X B- 42 . 

R0022 3» VBCOKM - VECTOR COEFFICIENTS OP THE LUNAR POSITION POLYNOMIAL 

R0023 LOADED IN DESCENDING SEOUENCE IN METERS^CSWN X B-2 

R0024 4 ) RESO - POSITION VECTOR OF THE SUN RELATIVE TO THE EARTH AT 

R0025 TWBMO IN 1KIERS X B-38 . 

R0026 5> VP.SO - VELOCITY VECTOR CP THE SON RELATIVE TO THE E14R1H AT 

R0027 TIMEWO IN 1KIERS/CS X B-9 . 

R0028 «> CMBGAES - ANGULAR VELOCITY OF THE VECTOR RESO AT TIMEMO IN 

RO029 REV/CS X B*26 . 

RO030 ALL EXCBPT THE FIRST INPUT ARE INCLUDED IN THE PRE-LAUNCH - 

R0031 ERASABU? DATA LOAD. 

RO032 OUTPUT - LSPOS 

I 

1 




L 
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R0033 

B0034 

R003S 

R0036 

R003T 

R0038 

R0039 

R0040 

R0041 

R0042 

B0043 

R0044 

R0045 

R004B 

HO 047 

R0048 

R0049 

B0050 

R0051 

R0052 

R0053 

B0054 

R0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 


20*35 OCT. 28,1968 PANDORA .080 PAOB 740 


D 2D OP VAC AREA CONTAINS THE POSITION VECTOR OP THB SUN RELATIVE 
TO THB EARTH AT TINE INPUT By THB UffiR IN fBTBRS X B-3g. 

2 > MPAC CONTAINS THE POSITION VECTOR OP THE MOON RELATIVE TO THE 
earth at time input By the u®r in inters x B- 29. 

OUTPUT - UNPOS 

mpac contains the position vector op the mocn illative to the 
earth at THE TINE INPUT BY user IN MEIERS X B-29 


USER.S PAOB NO. 2 


Bo S3 


OUTPUT - UNVEL 


MPAC CONTAINS THE VELOCITY VECTOR OP THE MOCN IffilATIVE TO THE 
EARTH AT TIM3 INPUT By THE USER IN i«TERS/CS X B-7 

OUTPUT - SOLPOS 


MPAC CONTAINS THE POSITION VECTOR OP THE SUN 
at TIME INPUT BY the user IN METERS X B-38 . 


RELATIVE TO THE EARTH 


SUBROUTINES USED 


NONE 


REMARKS 


THE VAC AREA IS USED FOR STORAGE OP 
OP COMPUTATIONS. 


INTERMEDIATE AND FINAL RESULTS 



Si, XI AND X2 ARE USED BY THESE SUBROUTINES. 

PREIAlNQf ERASABLE DATA LOAD ARE CNLY ERASABLE STORAGE USD BY 
THESE SUBROUTINES. 

RESTARTS IX JR TNG OPERATION OP THESE SUBROUTINES MJST BE HANDLED BY 
THE USER. 


REF 

1 



36,2502 

26,2000 

28,2110 

REP 

1 




REF 

2 

LAST 

210 

Er, 1777 

REP 

1 



28,2110 

26,2111 

REP 

REP 

1 

1 



26,2112 

28.2113 

26.2114 

REP 

REP 

1 

2 

LAST 

740 

26.2115 

26.2116 
26,2117 


BANK 38 
SBILOC EPHE4 
BANK 

COUNT* sj/EFHHS 





EBANK= 

END-E? 

77774 

0 

LSPOS 

AXT, 2 


54161 

0 



RESA 

52170 

0 


AXT, 1 

GOTO 

54143 

0 



RES 

54126 

0 



LSTIMB 

52170 

0 

UNPOS 

AXT, 1 

GOTO 

54162 

0 



REM 

54126 

0 



LSTIf® 


COMPUTES POSITION VECTORS OP BOTH THE 
SN AND THE MOCN. THE POSITION VECTOR 
OP THE SN IS STORED IN 2D OF THB VAC 
AREA. THE POSITION VECTOR OP THE MOON 
IS STORED IN MPAC. 

COMPUTES THE POSITION VECTOR OP THE MOCN 
AND STORES IT IN MPAC. 
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20*35 OCT. 28,1968 PANDORA .080 PACE 741 





L 

UJNAR AND SOLAR EPKE'SRIDES SUBROUTINES 




UffiRaS PACE NO. 3 B7 

S3 

•009 





28,2120 

52170 

0 

LLNVEL 

AXT, 1 

OOTO 

COMPUTES THE VELOCITY VECTOR OP THE MOCN 

OOTO 

REP 

1 



28,2121 

54173 

0 



VEM 

AND STORES IT IN MPAC. 


0071 

RES' 

3 

LAST 

740 

26,2122 

54126 

0 



LSTM3 



0072 





26,2123 

76020 

1 

SOLPOS 

STQ 

AXT.l 

CCMPUIES THE POSITION VECTOR CP THE SUN 

0073 

HEP 

12 

LAST 

676 

26,2124 

0004T 

1 



X2 

AND STORES IT IN MPAC. 


00T4 

REP 

2 

LAST 

740 

26,2125 

54143 

0 



RES 



•0T5 





26,2128 

54201 

0 

LSTIM3 

SETPD 

SR 



0076 





26,2127 

00001 

0 



OD 



007T 





26,2130 

206 IT 

0 



14D 



0078 





26,2131 

57571 

0 


TAD 

DC CMP 



OOTO 

REP 

12 

LAST 

530 

28,2132 

01707 

0 



TEPHHM 



0080 





26,2133 

57571 

0 


tad 

DC CMP 



•081 

REP 

2 

LAST 

88 

28,2134 

02034 

1 



TIMB40 



•082 





26,2135 

66261 

1 


SL 

SSP 



0083 





26,2136 

20221 

1 



16D 



0084 

HEP 

31 

LAST 

730 

26,2137 

00051 

0 



Si 



0085 





26,2140 

00006 

1 



6 D 



0088 





26,2141 

TT650 

1 


OOTO 




0087 

REP 

33 

LAST 

737 

26,2142 

00046 

0 



XI 



0088 





26,2143 

41206 

0 

RES 

PUSH 

DMP 


PD- 2 

•089 

REP 

i 



26,2144 

02147 

1 



CMBGABS 



0090 





28,2145 

71406 

0 


PUSH 

COS 


PD- 4 

0091 





26,2146 

65361 

0 


vxsc 

POOL 


PD- 8 

0092 

REP 

2 

LAST 

87 

26,2147 

02133 

1 



RE SO 



0093 





26,2150 

63356 

1 


SIN 

PDVL 


PD-10 

0094 

REP 

3 

LAST 

741 

26,2151 

02133 

1 



HE SO 



0095 





26,2152 

53406 

0 


PUSH 

UNIT 


PO-16 

0098 





26,2153 

53435 

0 


VXV 

UNIT 



0097 

REP 

3 

LAST 

616 

26,2154 

02141 

1 



VESO 



0098 





28,2155 

76435 

1 


VXV 

VSLl 


PD-10 

0099 





26,2156 

53381 

0 


vxsc 

VAD 


PD-02 

•100 





26,2157 

52172 

1 


VSLl 

GOTO 

RES IN METERS X B -38 IN MPAC. 


0101 

HEP 

13 

LAST 

741 

26,2160 

00047 

1 



X2 

RES IN iETERS X B-38 IN 2D CP VAC 


0102 





28,2161 

14003 

1 

RESA 

STCDL 

2D 

. PD- 0 

0103 





26,2162 

63370 

0 

RBI 

AXT, 1 

PDVL 


PD- 2 

•104 





26,2163 

00066 

1 



54D 



0105 

REP 

2 

LAST 

86 

28,2164 

02037 

1 



VECOPM 



0106 





26,2165 

52761 

0 

REM4 

VXSC 

VAD# 



010T 





26,2166 

00001 

0 



OD 



0108 

REP 

3 

LAST 

741 

26,2167 

02133 

1 



VECOEM +60D, 1 



0109 





26,2170 

72500 

1 


TIX.l 

VSL2 

REN IN METERS X B -29 IN MPAC. 


0110 

REP 

1 



26,2171 

54165 

1 



REMA 



0111 





26.21T2 

77616 

0 


RVQ 




0112 





26,2173 

65370 

0 

VTM 

AXT, 1 

POOL 


N 

1 

£ 

0113 





26,2174 

00060 

1 



48D 



0114 

REP 

1 



28,2175 

14214 

0 



NINEB 4 



0115 





28,2176 

74206 

0 


PUSH 

vxsc 


PD- 4 

0116 

REF 

4 

LAST 

741 

26,2177 

02037 

1 



veccsw 



OUT 





28,2200 

77781 

1 

VK44 

VXSC 




0118 





26,2 201 

00001 

0 



OD 





; 
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USER. 3 PAGE NO. 


BT S3 


0119 



26,2202 

14005 

1 


STODL 

4D 

0120 



26,2203 

41425 

1 


DSU 

RJ9I 

0121 

REP 

1 

26,2204 

14216 

1 



CNE84 

0122 



26,2205 

53357 

0 


VXSO 

VAD 

0123 

REP 

5 LAST T41 

26,2206 

02125 

0 



VEC0B4 +54D.1 

0124 



26,2207 

00005 

1 



4D 

0125 



26,2210 

72500 

1 


TIX,1 

VSL2 

0126 

REP 

1 

26,2211 

54200 

1 



VB4A 

0127 



28,2212 

77616 

0 


HVO 


0128 



26,2213 

22000 

1 

NINH4 

2oec 

9.0 B-4 

0128 



26,2214 

00000 

1 




0129 



26,2215 

02000 

0 

CNEB4 

2DEC 

1.0 B-4 

0129 



26,2216 

00000 

1 





PD- 2 
PD- 4 


VBA IN hETERS/CS X B-t IN HPAC. 
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P61-P8T 


USERaS PAGE NO. 


BO S3 


R0001 PROGRAM’ 

R0002 MOD NO. ’ 

R0003 MOD BY’ 

R0004 MOD NO’ 1 

R0008 M3D NO’ 2 

R0008 MOD NO’ 3 

R0010 FUNCTION’ 

R0011 CALLING SEOUENCE- 

R0012 BXIT- 

R0013 SUBROUTINE CALLS- 


P61 

0 »AR. 13, 1967 
R. HIRSOHkOP 

MOD BY’ RR BAIRNSEATHER DATE’ 22 JIM 67 

MOD BY’ RR BAIRNSFATH2R DATE’ 17 JAN 68 

MOD BY’ RR BAIRN SPATTER DATE’ 8 MAY 68 

TO CALCULATE AND DISPLAY EMS INITIALIZATION DATA 
by V 37 
TO P82 

S61.1 , S61.3 , GOFLAai , FLAGUP , R02BOIH 


RESTARTS. 

COLOSSUS GSOP CHANGES. 

DELETE CMS4 MANEUVER (PCR 50) 



R0014 

R0015 

R0017 

R0019 

R0020 

R0021 

R0022 

,R0023 

R0025 

R0027 

R0029 

R0031 

R0033 

R0035 


ERASABLE 


OUTPUT’ 


INITIALIZATION’ 

FMSALT (-29) M .05G ALTITUDE ABCXE FISCHER ELLIPSOID 

ALFAPAD /180 HYPERSCNIC CM TRIM ANGLE CP ATTACK 

THE FOLLOWING REGISTERS Alffl WRITTEN IN FOR USE BY DISPLAYS 
GMAx 100 CMAX (-14) G,S MAXIMlM ACCELERATION 


DEBRIS’ 


VP RED <-T) MATS 
GAM4AEI GAM4A/380 
RTOO THBWH/360 
VIO (-7 ) MATS 

TIE (-28) Cs 

LAIN SPL) /36O 
LNG( SPL) /36O 
HEAD SUP (0) 

SEE SUBROUTINES. 


PREDICTED VELOCITY AT 400K PT 
PREDICTED QANMA AT 400K ft 
RAN® ANGLE TO SPLASH FROM FMSALT 
INERTIAL VELOCITY AT FMSALT 

TIFE TO FMSALT 

TARGET LOCATION 
TARGET LOCATION 
♦ 1 = LIFT DOWN, -1 = LIFT UP 


PAD LOADED. 
PAD LOADED 


BWSALT IS PAD LOADED 
EMSALT IS PAD LOADED 
H4SALT IS PAD LOADED 
LEFT BY DSKY 
LEFT BY DSKY 
LEFT BY DSKY 


0036 





26,2217 



bank 

26 


0037 

REF 

1 



26,2000 



SBTLOC P60S 


0038 





26,2217 



BANK 



0039 

REP 

15 

LAST 

530 

B6, 1661 



bbank= 

AOG 


0040 

REP 

1 






COUNT* 

SJ/P61 


0041 

REP 

41 

LAST 

692 

28,2217 

3 4675 

1 P61 

CA 

BIT14 

EXTENDED VERB SHOULD BE FREE THIS CLOSE 

0042 

REF 

18 

LAST 

560 

28,2220 

55*044 

1 

TS 

EXTVHACt 

TO V37 

A0043 










LOCK a IT EXTENDED VERBS SO CAN USE TFF 

AO 044 










ROUTINES. EXT VERB ERASE IS USED 

0045 

REF 

89 

LAST 

689 

26,2221 

4 4712 

0 

CS 

ONE 

REMOVE IF HEADSUP EVER CN UPLINK DATA 

0046 

REP 

3 

LAST 

275 

28,2222 

55*726 

1 

TS 

HEAD SUP 

PRELOAD 

0047 

REP 

1 



26,2223 

0 2543 

1 

TC 

S61.1 

CHECK STATE VECTOR AND IMU ORIENTATION 

A0048 









RV 60GBNRBT. DOES PHASCHNG, GROUP 4. 

0049 

REP 

1 



26,2224 

3 2424 

1 

CA 

V06N61 

LAT(SPL) LNG(SPL) HEADSUP 

A0050 










XXX.XX DEG XXX.XX DEG XXXXX. 

0051 

REP 

221 

LAST 

737 

28,2225 

0 4555 

0 

TC 

bankcall 


0052 

REP 

17 

LAST 

727 

26,2226 

20763 

1 

CADR 

GOPLAS1R 


0053 

REP 

62 

LAST 

737 

26,2227 

0 4106 

1 

TC 

GOTOPOCH 
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P61-P67 


0058 

0081 

HEP 

96 

0062 

REP 

4 

0063 

0064 

REF 

42 

0065 

REP 

5 

0066 
006 T 

HEP 

194 

0068 

HEP 

9 

0069 

REP 

2 

OOTO 

REP 

1 

0071 



0072 

RKP 

11 

0073 

0074 

REP 

15 

007S 

REP 

1 

0076 

REP 

10 

0077 

0078 

RHP 

10 

0079 

REP 

2 

0080 

0081 

REF 

2 

0082 

REP 

3 

0083 

RKP 

10 

0084 



0085 

REP 

1 

0086 

*0087 

REP 

1 

0089 

REF 

5 

0090 

*0091 

REP 

1 

0092 

RH* 222 

0093 

HEP 

37 

0094 

REF 

63 

0095 

0096. 

REP 

1 

0097 

*0098 

0099 

BHP 195 

0100 


23 



26,2230 

0 2235 1 


TC 

P81.4 


26,2231 

0 2224 1 


1C 

-5 

724 

28,2232 

0 5301 0 

P61.3 

1C 

phaschng 


26,2233 

00014 1 


OCT 

00014 

727 

26,2234 

0 5112 0 


TC 

PNDOFJO0 


26,2235 

22 007 0 

P61.4 

ZL 


743 

28,2236 

11«728 1 


CCS 

HEAD SUP 

743 

26 , 2237 

3 4675 1 


CA 

BIT14 


28,2240 

12 241 0 


NOOP 

276 

26,2241 

53*718 1 


DXCH 

ROLLC 

738 

26,2242 

0 6006 1 


TC 

INTPRET 


28,2243 

77745 1 

NBJTHNVN 

DLOAD 


880 

26,2244 

01205 1 



PIPTIME 

116 

26,2245 

37851 1 


STCALL M4 


26,2246 

52063 0 



SWRTeil 


28,2247 

77775 1 


VLOAD 


680 

28,2250 

01171 1 



H4 

635 

26,2251 

02327 0 


STORE 

RCNE 


26,2252 

77656 1 


UNIT 



26,2253 

28343 1 


STCVL 

URCNE 

656 

26 , 2254 

01177 1 



VN 

513 

26 , 2255 

02335 0 


STORE 

VCNE 


26,2256 

53435 0 


VXV 

UNIT 

744 

26 , 2257 

02343 1 



URCNE 

116 

26,2260 

035 0 2 0 


STORE 

UNI 


28,2261 

45345 1 

DUMPP81 

DtXMD 

DSU 

. 744 

26,2262 

03651 0 



MB 

744 

26,2263 

01205 1 



PIPTIMB 


26,2264 

45040 1 


BM7 

CALRB 


26,2265 

54243 0 



NEWHNVN 


28,2266 

54650 0 



361.2 

736 

26,2267 

0 5425 1 

P81.1 

TC 

CLEAFMHC 


26,2270 

3 2423 0 


CA 

V06N60 

743 

26,2271 

0 4555 0 


TC 

bankcall 

737 

26,2272 

20624 0 


CADR 

GOFLASH 

743 

26,2273 

0 4106 1 


TC 

OOTOPOCH 


26,2274 

0 2276 0 


TC 

Pei. 2 


26,2275 

0 2270 0 


TC 

-5 

744 

26,2278 

0 6006 1 

P61.2 

TC 

INTPRET 


26 , 2277 

45234 0 


RTB 

DSU 

732 

26,2300 

45505 0 



LOADTIMB 




20*35 OCT. 28,1968 PANDORA .080 PACE 744 
US8R.S PAGE NO. 2 Be S3 


C(HEADSUP>= +1/-1 

IP HEADSUP POS,RCLLC =180 DEG. CLIFT IWN) 
IP HRADSUP NEG,ROLLC=o (LIPT UP) 

ROLLC IS USED BY S62.3* OIM ANO AT .050 


SAVE TIME CP »r,VN TO DETERMINE IP AN 

UPDATE HAS OCCURRED 

INITIALIZE 




INITIAL VALUE OF PIPTIME 


UPDATED. . . GO TRY AGAIN 

GET DISPLAY DAW FOR N60 AND N63 

AND RETURN IN BASIC, BELOW. 


GAAx VPRED GAMMAEi 

XXX.XX G XXXXX. FPS XXX. XX DEG 


CORRECT TIE FOR Til'S? [APSE DURING 
ABOVE DISPLAY. 


current time. 




I 
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L 

P81- 

P67 




0101 

HEF 

4 

LAST 

744 

26,2301 

0102 





26,2302 

0103 

REF 

2 

LAST 

118 

26,2303 

0104 

REP 

5 

LAST 

275 

28,2304 

0105 





26,2305 

0106 

REP 

1 



26,2306 

A010T 






0108 

REF 

223 

LAST 

744 

26,2307 

0109 

REP 

38 

LAST 

744 

26,2310 

0110 

REP 

64 

LAST 

744 

28,2311 

0111 





26,2312 

0112 

REP 

2 

LAST 

744 

26,2313 

R0113 







03651 

0 


PM 

77815 

0 

DAD 


03733 

0 


7TB 1 

03T2T 

0 

STORE 

7TE 

77776 

1 

EXIT 


3 2425 

0 

CA 

V06N83 

0 4555 

0 

TC 

RANKCALL 

20624 

0 

CADR 

GOFLASt 

0 4108 

1 

1C 

OOTOPOCH 

0 2314 

0 

IC 

+2 

0 2276 

0 

TC 

P61.2 


THEN PALL INTO P62 


USRaS PAGE NO. 3 Be S3 

PIPTIf® FOB RCNB d VCNE. 

NBQATIVE OP FREE FALL Til®. 
D0CRS4&ITED 

RTOO VIO TIB 

XXXX.X K4 XXXXX. FPS XXBXX M,S 

REDO 
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R0114 

ROUS 

ROUS 

ROUT 

R0118 

R0120 

R0122 

R0124 

R0126 

R0128 

R0129 

R0130 

R0131 

R0132 

R0133 

R0134 

R0136 

R0138 

R0140 


0148 

0149 

0150 

0151 
*0152 

0153 

*0154 

*0155 

A01S8 

015T 

0158 

0159 

0160 
0161 
0162 

0163 

0164 


PROCSAM- 
MOD NO.- 
MOD BY- 
MOD NO* 
MOD NO* 
MOD NO’ 
MOD NO* 
PlJNCTION- 


P82 

0 WAR. 13, 1967 
R. HIRSCHXOP 

MOD BY’ RR BAIRNSPATHER 
MOD BY’ RR BAIRNSPATHER 
MOD BY’ RR BAIRNSPATHER 
MOD BY’ RR BAIRNSPATHSR 


CALLING SEOLENCB- 

ey it- 

erasable INITIALIZATION’ 
ALPAPAD 
LADPAD 
LODPAD 
LAW SPL) 
LNO(SPL) 

HEADSUP 

SlEROUTINE CALLS’ 


DATE’ - 21 MAR 67 
W1E’ 22 JON 67 
DATE’ it JAN 68 

. , _ - DATE’ 8 MAY 68 nwo ai«nr ur u 

1> TO NOTIPY Cp&f CHEN CJJC SYSTEM IS PREPARED POR CM/SM SEPARATION 

2> to orient the <34 to the correct attiudb for atmospheric bitey 

BY V37 OR DIRECTLY PROM PB1 


restarts. 

colossus gsop CHANGES. 

MOVE START OP DESIRED GIMIAL CALC. 


TO P63 


(MAY BE CHANCED BELOW) 

(MAY BE CHANCED BELOW) 

(MAY BE CHANGED BELOW) 
NRWMODEx , S61.1 , CM/DAPIC 


LEFT BY PAD LOAD 
LEFT BY PAD LOAD 
LEPT BY PAD LOAD 
LEFT BY DSOY, VIA P61 

LEFT BY DSOY, VIA Pei 

LEFT BY DSOY, VIA Pei 

CM /DA PCX , H02BOIH , GOPERPl 


GOFLASH , GODSPR 


0142 REF 

0143 REF 

0144 

0145 REF 
0140 REP 

0147 REF 


COUNT* *f/P62 


REF 

REP 


REP 


7 

LAST 

527 

26,2314 

0 5243 1 

1C 

NEWMCDEx 




28,2315 

00076 0 

M4 

62 

90 

LAST 

743 

26,2316 

3 4712 1 

CA 

(NE 

4 

LAST 

196 

26,2317 

54 332 1 

TS 

DNI, SICOD 

2 

LAST 

743 

26,2320 

0 254 3 1 P82 

TC 

S61.1 

196 

LAST 

744 

26,2321 

0 6008 1 

7C 

INTPRBT 




28,2322 

47131 1 

SSP 

RTS 

2 

LAST 

110 

28,2323 

03325 0 


POSEXIT 

1- 



26,2324 

54402 0 


P82.3 

1 



28,2325 

41645 0 


CM/DAPIC 


REP 1 
REP 8 

REP 1 
REP 224 
REP 1 
REP 65 


LAST 


LAST 



26,2326 

0 0008 

1 PB2-2 

Extend 



28,2327 

3 2431 

0 

DCA 

POSECADR 

647 

26 , 2330 

53*223 

1 

PXCH 

AvEGEXIT 


28 ,2331 

3 4270 

0 

CAP 

OCT41 

745 

28,2332 

0 4555 

0 

TC 

bankcau. 

745 

26 , 2333 

21031 

0 

CADR 

GOPERPi R 

26,2334 

0 4106 

1 

TC 

GOTOPOCH 


28,2335 

0 2340 

1 

TC 

+3 


MODE CHANGE IF CAME FRCM Pel. 
MODE CHANGE AUTOMATIC VIA V 37 


(HEQO STATE VECTOR AND IMU ORIENWTICN. 


CALCULATE DESIRED .05G GIMBAL ANGLES 
WITHOUT DISPLAY. 

START CM/POSE AND BODY BATE CALC 

DOBS 2FHSCHNG, OCT 40116, OCT 05024, OCT 13000. 
(M/DAPIC SETS EBANK = ERAOG 


AND RETURNS IN BASIC TO P62.2. 
CONTINUE WITH CM/POSE AFIER Av G. 

REOUEST SEPARATION 

PROCEED 
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20*35 OCT. 28,1968 PANDORA .080 PAGE T4T 


L P61-P87 

A0165 

0166 28,2336 0 2331 1 

016T REP 1 26,2337 0 2232 0 

! 0168 REP 44 LAST 690 26,2340 0 4574 0 *3 

0169 R HP 1 28,2341 41565 1 

A0170 

A0171 

A0172 

0173 REP 2 LAST 743 26,2342 3 2424 1 P82.1 

A0174 

A017S 

A0176 

A0177 


US5WS PAGE NO. S E6 S3 


NOTE' NODOFLAG WILL BB SET IN CM /DA PON. ttt 


1C 

-5 

©(TER 

TC 

P81-3 

FOR PHASCHNG AND ENDOFJOB. 

TC 

POSTAKP 


CADR 

CM/DAPCN 

DISABLE RCS DAP, ENABLE ENTRY DAP AND 



DO ATTITUDE HOLD. 


WILL IDLE UNTIL CM/POSS DOBS ONE UPDATE. 

CH/DAPCN DOBS NO FHASCKSG. 

CA V06N61 LATISPL) LNGCSPLl HEAD SUP 

XXX .XX DBG XXX.XX DBG OOOOX. 

TERMINATE ATTITUDE HOLD. SET UP COMMANDS’ 
ROLLC, ALPACQ4, BElACCM. BEGIN MANUVER TO 
ENTRY ATTITUDE. 



0178 

REP 

225 

LAST 

748 

26,2343 

0 4555 

0 

0179 

REF 

39 

LAST 

745 

26,2344 

20624 

0 

0180 





26,2345 

0 2342 

0 

0181 





26,2346 

0 2350 

0 

0182 





26,2347 

0 2342 

0 

0183 

REF 

T6 

LAST 

744 

26,2350 

0 5301 

0 

0184 





26,2351 

04024 

0 

A01SS 








0186 

■REF 

5 

LAST 

744 

26,2352 

11«726 

1 

0187 

REP 

43 

LAST 

744 

26,2353 

3 4675 

1 

0188 





26,2354 

12 355 

1 

0189 

REF 

6 

LAST 

744 

26,2355 

55«715 

1 

0190 

REF 

1 



26,2356 

3 1411 

1 

0191 





26,2357 

22 007 

0 

0192 

REP 

2 

LAST 

110 

28 , 2360 

53«604 

0 

0193 

HEP 

91 

LAST 

746 

26 , 238 1 

3 4712 

1 

0194 

REP 

1 



26,2382 

55«727 

0 

0195 

REF 

2 

LAST 

391 

26,2363 

3 4745 

0 

0196 

A019T 

REP 

2 

LAST 

78 

26,2364 

55«263 

0 

0198 

REF 

44 

LAST 

699 

26 , 2365 

0 5435 

0 

0199 

A01991 

REP 

1 



26,2366 

00134 

1 


SKIP 


TC BA^cCALL 

CADft GOPIASH 

TC -3 

1C +2 

TP -5 

TC FHASCHNG 

OCT 04024 


CCS HEADSUP 

CA BIT14 

NOOP 

TS ROUJC 

CA ALFA PAD 

ZL 

DXCH ALPACQH 

CA CNE 

TS P63FLAG 

CA V06N22 

TS ENTRYVN 

TC UPFLAG 

ADRES ENTRYDSP 


USE ENTRYVN FOR DISPLAY BBLCW. 

FRANK WAS STT IN cm/dapcn to ebaog 
C(HEADSUP) = ♦/- 1 

IP HEADSUP POS,R0LLC=180 Dec, (LIFT D*N) 
IF HEADSUP NBG,RCLLC = o DEG (LIFT UP) 

NOMINAL ALFATRI.M PAD LOADED, NEG. NO. 

SET ALFACCM = ALFA TRIM, BBWCCM=0 

PERMITS BXDAP2 TO CHANGE FLAG TO +0 
AS INDICATOR. STARTS UP P63. 

SET UP DISPLAY FOR C3XI DESIRED VAUJES 
FRCM ENTRY ATTITUDE CALC, THAT IS 
ALREADY GOING. 

TURN CN ENTRY DISPLAY 
ENTRYDSP = 92D BIT 13 FLAG 6 


I 

I 

I 

I 

I 



l 
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P81-P67 


0200 

0201 

0202 

0203 

*0204 

0205 

*0200 

*020T 

*0208 

*0209 

*0210 

*0211 

0212 

0213 

0214 

0215 

0215 

0216 

021T 

*0218 

*0219 

*0220 

*0221 

0222 

0223 

0224 

0225 
*0226 


4 I* ST 173 
02 LAST T4T 


REP 


28,2367 

4 

1700 

0 

CS 

OCAPMOD 

28,2370 

7 

4712 

0 

MASK 

CNE 

26,2371 

0 

0006 

1 

BXTBCD 


26,2372 

1 

2420 

1 

BZP 

P63.1 

26,2373 

0 

2406 

1 

1C 

P63 


20*35 OCT. 28,1968 PANDORA .080 PACE 743 

USSRaS PAGE NO. 0 Bfl S3 

00 DIRECTLY TO P63 IP BODY ATHTtDB 
IS SlXH THAT THE DELAY TASK* WAKEP62 
WILL BE CHITTED. 

DISABLE GRP 4, 00 TO FNDOPJOB. 

(IE, CONTINUE IP OOAPMCD = -i, OR *0) 

PUT JOB TO SLEEP UNTIL VEHICLE MANUVER HAS 
REDUCHl ALPA TO +/-4S DEO. CCNSIDBR REMAINING 
65 CEO < 25 DEG IP ALPA NEG) TO ALFA TRIM TO 
OCCUR AT 3 DEG/SEC, AND TERMINATE p 6 2 AT THAT 
TIME. 

TASK WAKEP82 IS CALLED FROM ENTRY DAP. 


REP 

2 

LAST 

610 

26.23T4 

3 4760 

1 

WAKEP62 CA 

PRIO13 

REP 

24 

LAST 

683 

26,2375 

0 5027 

1 

1C 

NCVAC 

REP 

16 

LAST 

743 

E6.1681 



ERANK= 

A CD 

REP 

2 

LAST 

748 

26,2376 

02406 

1 

2CADR 

P83 





28,2377 

54066 

0 



REP 

40 

LAST 

687 

26,2400 

0 5213 

1 

1C 

TA SKIVER 

HEP 

2 

LAST 

746 

26,2401 

54402 

0 

P62.3CAD CADR 

P62.3 


REP 

REF 

REP 


16 

1 

1 


LAST 728 


26 . 2402 

26.2403 

26.2404 

26.2405 


52131 0 
00053 1 
53570 0 
20302 1 


EACH 2 ffiC, CALCULATE QIMHAL ANGLES FOR ENTRY CON- 
DITIONS THAT WILL HOLD IF REORIENTATION WERE WADE 

at present rn, vn. ccme here prom cm/pose and also 

IN KEPLER PHASE OP ENTRY. 

P62.3 SSP GOTO SET RETURN ADDRESS SO THAT ROUTINE 

OPRET GOES DIRECTLY TO ENTRY GUIDANCE EXIT 

BTOEXIT THAT DOES ENTRY DISPLAY ,GRP 5. 

362.3 PUT DESIRED CDU VALUES IN Cffll.s FOR 

N22 DISPLAY. 
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l mi-mt 


USERoS PAGE NO. T Eg S3 


P022T 

M3 

R0228 

PROGRAM- 

R0229 

MOD NO.- 

R0230 

MCD BY- 

R0231 

MOD NO* 1 

R0233 

MOD NO* 2 

R0235 

PUNCTICN- 

R0236 


R0238 


R0240 


R0241 

CALLING SEOUfNCE. 

R0242 

BXIT- 

R0243 

SlBROUTINB CALLS- 


M3 

0 HAR. 13, 1967 
R. HIRSCKSCOP 

MOD BY* RR BAIRNSPATKER DATE* 22 JIN 67 RESTARTS. 

MCD BY’ RR BAIRNSFATHER DATE* 14 JUL 67 RBVISH) RESTARTS 

1) TO INITIALIZE THE ENTRY EQUATIONS 

2) TO CONTINUE TO HOLD THE CM TO THE CORRECT ATTITUDE WITH RESPECT TO THE ATMOSPHERE POR 
THE CNSET OP ENTRY DECELERATION. ROLL ANGLE IS LIPT UP/DOWN AS SPBCIPIED BY HBADSUP. 

3) TO SENSE .05 G 
DIRECTLY FROM P62 
TO ENDOPJOB 
NEWMCDEX , GCDSPR 


0244 

REP 

1 







COUNT* 

**/P63 


0245 

REP 

8 

LAST 

746 

26,2406 

0 5243 

1 

P63 

TO 

NEWMCDEX 


0246 





26,2407 

00077 

1 


MM 

63 


02461 

REP 

226 

LAST 

747 

26,2410 

0 4555 

0 


TO 

bankcall 

FLUSH N22 DISPLAY, IP ON. (CNIT DISP 

02462 

REP 

8 

LAST 

736 

26,2411 

20607 

1 


CADR 

CLEANDSP 

DURING STARTENT PASS.) 

AO 247 











arrive with EBank = aoo. 

0248 

REP 

1 



26,2412 

3 2427 

1 


CA 

entoadr 

CONTINUE AT STARTENT AFTER CM/POSE . 

A0249 










at end 

OP STARTENT, CHANGE ADDRESS IN GOTCADOR 

AO 250 










TO CONTINUE AT SCALEPOP THEREAFTER. 

0251 

REF 

3 

LAST 

746 

28,2413 

55*724 

0 


TS 

POSEXIT 


0252 

HEP 

1 



26,2414 

3 2426 

0 


CA 

V06N64 

0 VI R TO SPLSH 

AO 253 











XXX.XX G XXXXX. PPS XXXX.X NM 

0254 

REP 

3 

LAST 

747 

26,2415 

55*263 

0 


TS 

ENTOYVN 

POR DISPLAY CALL IN OvEHNCUT. 

02541 

REP 

93 

LAST 

740 

26,2416 

4 4712 

0 


CS 

ONE 

IN CASE FLAG IS LEFT AT +1 BY DAP. THE 

02542 

REP 

2 

LAST 

747 

26,2417 

55*727 

0 


TS 

P63FLAG 

-1 ASSURES THAT ExO-ATM DAP WILL NOT 

Ao 2543 











CALL P63 CUT OP SEQUENCE IN P66 . 

0255 

REP 

77 

LAST 

747 

28,2420 

0 5301 

0 

P6 3.1 

TO 

FHASCHNG 


0250 





26,2421 

00004 

0 


OCT 

00004 

DISABLE. DISPLAY RESTARTED VIA ENTRY. 

0257 

REP 

97 

LAST 

744 

26,2422 

0 5112 

0 


TO 

FNDCFJCB 


0258 





26,2423 

01474 

1 

V06N60 

VN 

0660 


0259 





26,2424 

01475 

0 

VO6N01 

VN 

0661 


0260 





26,2425 

01477 

1 

V08N63 

VN 

0663 


0261 





26,2426 

01500 

0 

V06N64 

VN 

0664 


0262 

REF 

1 



26,2427 

52000 

0 

ENTCADR 

CADR 

STARTENT 




I 
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L PB1-P6T 

0203 HEP 6 LAST 289 BT.14S1 EBANK= RTINIT 

0284 W i 28,2430 03373 0 POSECADR 2CADR CM/POSE 

0284 REP 1 28,2431 78087 1 


20*35 OCT. 28,1968 PANDORA .080 PACE T50 
USKRnS PAGE NO. 8 E0 S3 

TO CARY CVER INTO BflHY STEERING 
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20*35 OCT. 28,1968 PANDORA .080 PACE T51 
USBR«S PAGE NO. 9 Be S3 


P0265 

R0266 

R0267 

R0268 

R0270 

R0272 

R0274 

R0278 

R0278 

R0280 

R0281 

R0283 

R0284 

R0285 

0286 

0287 

0288 

R0289 


PROGRAM - 
MOD NO.- 
MCD BY- 
MOD NO* 2 
FUNCTION- 


REP 


Ptt4 

1 ffiPT. 19, 1967 
R. HIRSCHKOP 

MOD BY' RR BAIRNSPATHER DATE* g MAY 88 REVISED COMMENTS FOR COLOSSUS 

1. TO START ENTRY GUIDANCE AT .050 SELECTING ROLL ATTITUDE, CONSTANT DRAG LEVEL, AND 
DRAG THRESHOLD, KA , WHICH ARE KEYED TO THE .050 POINT. 

2. SELECT PINAL PHASE P67 IP V i 27000 PPS WHBI .20 OCCURS. 

3. ITERATE FOR UP-CCNTRCL SOLUTION P85 IP V 5 27000 FP3 AND IP ALTITU* RATE AND DRAG 
LEVEL CONDITIONS ARE SATISFIED. ENTER P65 WHEN CONSTANT DRAG CONTROLLER HAS BROUGHT RANGE 
AS PREDICTED TO WITHIN 25 NM OF D6SIR33 RANGE. 

4. SELECT PINAL PHASE P6T IP NO UP-CCHIROL SOLUTION EXISTS WITH VL S 18000 PPS. 

BY RIB FRCM REENTRY CCNTROL 
RACK TO REENTRY CONTROL 
NEC940DBX 

28,2432 BANK 28 

28,2000 ffiTUE P60S1 

28,2432 BANK 

THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING. RESTART PROTECTION IS VIA STEERING. 


CALLING SEOUeraE- 
BXIT- 

SlHROUTINE calls- 


0291 

HEP 

1 







COUNT* 

SS/P64 



0292 

REP 

9 

LAST 

749 

26,2432 

0 5243 

1 

P64 

TC 

NEWMODEx 

B«er via jtib when .osg 

is Exceeded. 

0293 





28,2433 

00100 

0 



64 



0294 

REP 

1 



26,2434 

3 2437 

0 


CA 

V06N68 

ROLLC VI 

hdot 

A0295 ’ 











XXX.XX DEG XXXXX. PPS 

XXXXX. PPS 

0296 

REP 

4 

LAST 

749 

26,2435 

55«263 

0 


TS 

eraovN 

DISPLAY VIA (VERNCUT. 


029T 

REP 

7 

LAST 

724 

26,2438 

0 6030 

1 


TC 

DANZIG 

... AND CONTINUE IN INITROLL ... 

0298 





28,2437 

01504 

1 

V06N68 

VN 

0668 
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L 

P01-P67 

P0299 

PROGRAM’ 

•0300 

MCD NO’ 0 

*0302 

FUNCTION' 

•0304 


•0300 


•0308 


•0309 

CALLING SEQUENCE’ 

•0310 

EXIT’ 

>0311 

SUBROUTINE CALLS’ 


20*35 OCT. 28,1988 PANDORA .080 PAGE 752 
USKR«S PAGE NO. 10 E 8 S 3 


P85 

|? AIRNSPAlHE B DATE* 17 JAN 68 COLOSSU8 GSOP ADOITICN 
®^ TRY ®^ MNCE > USING THE UP-CCNTROL PHASE TO STEER TO A CCNTRCLLH) EXIT 
CONDITION . THIS PHASE TERMINATES A) IE D ±07 PPS3, GO TO P66 

Bi ie roar neo, and if v ± vl ♦soopps, oo to pbt. 

BY RIB FRCM REarmY CONTROL 

BACK TO ffiENTRY CONTROL, OR TO ENDOPJCB 

NBsMCDEX 


•312 

•313 

REP 

REF 

1 

10 

LAST 

751 

26 , 2440 

•314 

•315 

REF 

3 

LAST 

748 

28.2441 

26.2442 

•316 

REF 

25 

LAST 

748 

28,2443 

•317 

REP 

5 

LAST 

751 

1283 

•318 

REF 

2 

LAST 

210 

26 , 2444 

•318 

•319 

DBF 

24 

LAST 

665 

28.2445 

26 . 2446 

•320 
•321 
•32 2 

REF 

197 

LAST 

746 

26,2447 

26.2450 

26.2451 

•323 

•324 

REP 

2 

LAST 

116 

26.2452 

26.2453 

•325 

•320 

REP 

HEP 

1 

1 



26 . 2454 

26 . 2455 

•0327 

•328 

REF 

49 

LAST 

700 

26,2456 

•329 

REP 

2 

LAST 

747 

26 . 2457 

•03291 

•330 

•331 

REP 
REP ; 

1 

227 

LAST 

749 

26,2460 

26,2481 

•332 

REP 

IB 

LAST 

743 

26,2462 

•333 

•334 

•335 

•338 

REP 

2 

LAST 

747 

26.2463 

26.2464 

26.2465 
26 , 2468 

•0337 

•338 

REP 

45 

LAST 

74T 

26 , 2467 

•339 

REP 

3 

LAST 

752 

26,2470 

•03391 

•340 

REF 

2 

LAST 

748 

26,2471 

•0341 


COJNT* t±/P65 


0 5243 1 P65 

TC 

NEWMODEX 

00101 1 


85 

3 4760 1 

CA 

PRIO13 

0 5027 1 

TC 

NOVAC 


EBANKr 

HNTRYVN 

02456 1 

2CADR 

P65.1 

54062 1 



0 5 261 1 

TC 

2PHSCHNO 

00554 0 

OCT 

00554 

10035 a 

OCT 

10035 

0 6008 1 

TC 

INTPRET 

47131 1 

SSP 

RIB 

03646 0 


GOTQADOR 

53027 1 


UPCCNTRL 

52120 0 


HEFAzElO 


0 5447 

0 P65.1 

TC 

DOWNFLAG 

00134 

1 

ACRES 

ENTRYDSP 

3 2472 

1 

CA 

V1BNB9 

0 4555 

0 

TC 

bankcall 

20763 

1 

CADR 

gcflashr 

0 2460 

1 

TC 

-3 

0 2467 

0 

TC 

♦3 

0 2480 

1 

TC 

-5 

0 2232 

0 

TC 

P61.3 

0 5435 

0 

TC 

UPFLAG 

00134 

1 

ADRES 

ENTRYDSP 

0 2420 

0 

TC 

P63.1 


•342 


26,2472 04105 1 V16N69 VN 


1669 


INTER VIA RIB WHEN RANGE ± 25 N M OP 
TARGET. 


2 PHASE OHO REQUIRED TO PREVENT RE- 
STARTING plashing dispiay twice. 
4.55 SPOT AND SERVICER, HERE. 


CHANGE ENTRY MODE TO UPCONTRL. 

GO HERE TO REESTABLISN ENTRY SEQUENCER 
AND CONTINUE AT UPCCNTRL. . . 



ENTRYDSP = 92D BIT 13 FLAG 6 


ROUX! DL (Q7) 

xxx .xx deg xxx.xx o 

NCDOFLAG IS SET.. 


VL 

XXXXX. FPS 


BST. GRP 4 FOR DSPLAY AND DO ENDOPJOB 
IF PROCEED, CONTINUE. 

ENTRYDSP = 920 BIT13 FI AG 6 

DISABLE GRP 4, START UP ENTRY DISPIAY 

N08V68 VIA CVERNOUT, AS USED IN P64. 




1 
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1*0343 

R0344 

R0346 

R0348 

R0349 

R0350 

R0351 

R0352 


PROGRAM ’ 
MOD NO* 0 
FUNCTION’ 


CALLING SEO.JNCE’ 
EXIT’ 

SUBROUTINE CALLS’ 


P86 

MOD BY’ RR BAIRNSFATKER DATE’ 17 JAN 68 COLOSSUS GSOP ADDITIONS. 

KEEP CM ATTITUDE IN TRIM TO THE RELATIVE VELOCITY VECTOR. ENTRY GUIDANCE STOPS GENERATING 
ROLL COMANDS UNTIL DRAG BUILDS UP TO 07+0.5 FPSS. 

VIA RTB FROM REENTRY CONTROL. 

RACK TO REENTRY CONTROL. 

NEWMODEX 


0353 REE 


COUNT* SJ/P66 


0354 

REP 

11 

LAST 

752 

26,2473 

0355 





26,2474 

0356 

A035T 

REP 

3 

LAST 

747 

26,2475 

0358 

A0359 

A0360 

A0361 

REP 

1 



26,2476 


0 5243 

1 P66 

TC 

NEWMODEX 

00102 

1 

*4 

66 

3 4745 

0 

CA 

V06N22 

0 2502 

1 

TC 

P66&® 


ENTER VIA RTB WHEN D t 07 FPSS 


OGA IGA MOA 

XXX.XX DEG XXX. XX DEG XXX.XX DEG 

IN CASE CAME FRCM P65, GO DISABLE GRP4 
AND SET ENTRYDSP TO DO DISPLAY VIA 
OvERNOUT. 

. . . AND CONTINUE AT KEP2 
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BO 303 
H0384 
R036S 
BO 366 
B0368 
B0369 
BO3T0 
B03T1 

03T3 

0374 

6375 

0376 

A0377 

0378 

0379 

0380 
A03802 

0381 

0382 

0383 

0384 

0385 

0386 

0387 

0388 
*0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 


P67 

PROGRAM- 
MOD NO.- 
MOD BY- 
PUNCHON- 
CALLINO SEQUENCE - 
EXIT- TO POOH 

SUBROUTINE CALLS- OOFLASH 

THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING. RESTART 


P87 

0 »R. 18, 1967 

B. HIRSCHCOP 

TO terminate steering when the cm velocity wrt 


REP 

1 







COUNT* $*/P67 

REP 

12 

LAST 

753 

26,2477 

0 5 243 

1 

P67 

TC 

NEWMODEX 

REP- 




28,2500 

00103 

0 



6T 

1 



28,2501 

3 2510 

1 


CA 

V08N68 

REP 

8 

LAST 

752 

28,2502 

55*283 

0 

P680TO 

TS 

ENTRYVN 

REP 

46 

LAST 

752 

26,2503 

0 5435 

0 


TC 

UPPLAG 

HEP 

4 

LAST 

752 

26,2504 

00134 

1 


ADRES 

fNTHYDSP 

REP 

T8 

LAST 

749 

26,2505 

0 5301 

0 

KILLGRP4 TC 

PHASCHNG 





28,2506 

00004 

0 


OCT 

00004 

REP 

8 

LAST 

751 

26,2507 

0 6030 

1 


TC 

DANZIG 





28,2510 

01502 

1 

V08NB6 

VN 

0666 

REP 




28,2511 




BANK 

26 

1 



28,2000 




se-tloc 

PB0S2 





28,2511 




bank 



REP 1 

REP 228 last 752 
REP 40 LAST 747 


REP 2 LAST 209 
REP 25 LAST 895 
REP 1 

REP 2 LAST 754 
REP 1 


20,2511 3 2542 0 P87.1 CA V16N67 


26.2512 0 4555 0 

26.2513 20624 0 

28.2514 0 2517 0 

26.2515 0 2517 0 

26.2516 O 2511 0 

26.2517 4 6214 1 

26.2520 0 0004 0 

26.2521 7 0102 0 

26.2522 54 102 0 

26.2523 0 0003 1 

26.2524 0 0006 1 

26.2525 3 264 2 0 


TC 

CADR 

TC 

TC 

TC 


bankcall 

GOFLA3T 

*3 

♦2 

PBT.l 


CS THI83E 

INHINT 

MASK CM/FLAGS 

TS CM/PLAGS 

RELINT 

Extend 

DCA SERVCAD2 


20*35 OCT. 28,1968 PANDORA .080 PAGE 754 
USER.S PACE NO. 12 E6 S3 


EARTH = 1000 FT/SEC 


PROTECTION is via steering. 


ENTER via RTB 

rollc XRNGERR DNRNGERR 

XXX.XX DBG XXXX.X NM XXXX.X NM 

display via ovehncut. 

(IN CASE CAFE PRCM P65 . ENTRY DISPLAY 
WILL FLU3I FLASHING DISP. IP STILL CM) 
BIT 13 FLAG 8 

DISABLE GRP4, IN CASE CAME PRCM HUNTEST. 
(COE TO KILLGRP 4 VIA RIB, RET TO CALLER) 

... AND CONTINUE AT PREDICT 3 ... 



RTOGO IAT LCNO 

XXXX.X NM XXX.XX DBG XXX.XX DBG 

effective ooropocH 

REDO 

TURN OFF ENTRY DAP 
CM/OSIHY , GAMDIFSW 
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Hi ASS»«LB REVISION 249 1 3' AOC PROGRAM COLOSSUS BY NASA 2021111-041 
L P01-P6T 

0402 REP 9 LAST 746 2ffi»2526 53«223 1 PXOt AVEOBXIT 

0403 REP 06 LAST T48 TO, 25 27 1 4108 0 TCP OOTOPOCH 


UffiR-S PAGE NO, 13 Efl S3 




«** ASSffiBLg RBVISIW 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 

L PM -POT 


0404 

0405 

0406 
040T 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 


BEK 


BEK 

BEK 


12 

O 

11 

11 

18 

5 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


T44 

T02 

T30 

T44 

T02 

698 


BEK 2 LAST 368 
BEK i 


26.2530 

28.2531 

26.2532 

28.2533 

28.2534 

26.2535 

28.2536 

28.2537 

28.2540 

26.2541 

26.2542 
4270 

28,2641 


43175 

01171 

00682 

16152 

01205 

45014 

01663 

26322 

77834 

53603 


1*87.2 


P67.3 RIB 


04103 1 


VLCAD CLEAR 
IW 

BRADFLAQ 
8TCDL ALPHAV 
PIPTIf® 
CLEAR CALL 

lunaflag 

LAT-LCNO 


V16N67 

0CT41 = 

SBHVCAD2 = 


VN 


SBRVNOUT 

1667 

33DEC 

SBRVCADi 


20*35 OCT. 28,1968 PANDORA .080 PAOB T56 
USER«S PACE NO. 14 E6 S3 
CALC PRESENT LAT, LCNO, ALT. 

USE PAD BAD KOR ALT. (NOT SEIM ANYWAY) 

USE TI(« CP fW 

smtoy exit that cmits display. 
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P01-P87 


USBR.8 PACE NO. 15 


21 rea or 
P61-P6T 


SUBROUTINE NAME’ 881.1 . 

MOD NO’ 0 DATE’ 21 PBB 67 

MOD BY’ RR BAIRNSFATHER LOO 8ECTICN’ P61-P6T 

MOD NO’ 1 MOD BY’ RR BAIRNSFATHER DATE’ 22 JIN 87 RESTARTS. 

FINCriCNAL DESCRIPTION’ CALLED BY BOTH Pal AND P82 

FIRST, TEST TO SEE IF AVERAtEG IS CN. IF NOT, UPDATE THE STATE VECTOR TO PRESH7T TIME ♦ TOLERANCE 
AND TURN CN AvERAGEO AT THAT Tim, AND CONTINUE. OTHERWISE CONTINUE’ SEE IF IHJ Y AXIS IS 
WITHIN 30 DEO OP V*R. IP YES, EXIT SlBROUTINE S61.1. IF NO, SEE IF -Y AXIS OP IMU IS WITHIN 
30 DBG OF V*R. IF YES, DISPLAY ALAIW’ 01427 IMU REVERSED. 

IP NO, DISPLAY ALARM’ 01426 IMJ UNSATISFACTORY. 

IN EITHER OP THESE LAST 2 CASES, WAIT 10 ffiC AND TH&I EXIT SUBROUTINE S61.1. 


THERE WILL BE A S40RT 10 ®C DELAY IP AN ALA EM EXIT IS TAKEN. THE DELAY FOR INTEGRATION IS 
AS SHORT AS CAN BE MADE, BUT IS ARBITRARY SINCE IT DEPENDS CN THE AGE OP THE STATE VECTOR. 


CALLING SEQUENCE’ 


CALL 

861.1 

C(MPAC) UNSPECIFIED 
PUSILOC UNSPECIFIED 


SUBROUTINES CALLED’ LOADTIME, CSMprEC, TPAGREB, 

WAIU.IST, JCBSLEEP, JGBwAKE, PRBREAD, ALARM, GODSPR, BANkCALL, DBLAYJCB 
NORMAL EXIT MODES’ RVO 
ALARMS’ 01426 MJ UNSATISFACTORY 

01427 IMU REVERSED 
OUTPUT’ POSSIBLE ALARMS 

POSSIBLY TDECi, RATT, VATT, RN, VN 
ERASABLE INITIALIZATION REQUIRED’ 




NORMAL EXIT MODES 
ALARMS’ 01426 
01427 

OUTPUT’ POSSIBLE 


AvBGFLAG AVERAGED CN OR OFP 

PIPTINB (-281 CS TIME OF PIPA UPDATE 

HN (-29) M STATE VECTOR 

VN (-7) M/CS STATE VECTOR 

REPSWAT (-1) .5 REE TO SM MATRIX 

OPRET 

POSSIBLY PIPTINEl, RATT, VAT T, TDECi, RNl, VNl, OTB4P, XI 
PUSH LIST LOCS USH) BY CSIPREC 


LEFT BY SERVICER 
LEFT BY READACCS 
1EFT BY AVERAGEG 
LEFT BY AVERAGEG 
LEFT BY LAST IMU ALIGNMENT 


IF UPDATED 


REF IT LAST 748 E6.1861 

26,2543 

REF 1 28,2000 

26,2543 


EBANK= AOG 
BANK 26 
SB1LOC P60S3 
RANK 


FOR 60CSNRET , S61DT 


COUNT* JJ/S61.1 


REF 2 LAST 114 
REF 229 LAST 754 
REF T LAST 895 
REP 198 LAST 752 


28.2543 0 0006 1 

26.2544 23*77 3 0 


28.2545 0 4555 0 

28.2546 1T573 0 


26,2547 0 6008 1 


EXTEND 

(KCH 60CENRET 
TC BANKCALL 

CADR R02BOTH 
TC JNTPRET 


SAVE RET ADDR IN Efl 6 







«*■ Asssaa tevtsiof 2*9 op aoc program colossus by nasa 2021111-041 

l rai-rrr 


0477 





28,2550 

45014 0 

BCN 

CALEB 

0478 

BSP 

2 

LAST 

506 

26,2551 

00716 1 


AVEGtPLAO 

0479 

BBF 

2 

LAST 

210 

26,2552 

54603 0 


sei.iA 

0480 

W 

2 

LAST 

647 

26,2553 

27573 0 


MIDTOAV2 

0481 

MSP 

276 

LAST 

738 

26,2554 

3 0155 0 

CA 

MPAC *1 

0482 

HHP 

3 

IAST 

209 

26,2555 

55-T74 0 

TS 

SeiDT 

0483 

m p 

36 

LAST 

864 

26,2556 

0 5140 1 

TC 

WAITLIST 

0484 

REP 

11 

LAST 

527 

B7.1431 


EBANK= 

: O/CNTR 

0485 


2 

LAST 

209 

28,2557 

02564 1 

2CADR 

S61.1C 

0485 





26,2580 

54067 1 



0486 

REP 

T9 

LAST 

T54 

26,2561 

0 5301 0 

TC 

PKASCHNO 

048T 





26,2582 

40434 0 

OCT 

40434 

0488 

REP 

98 

LAST 

749 

26,2563 

0 5112 0 

TC 

ENDOPJCB 

0489 

REP 

4 

LAST 

752 

26,2564 

3 4760 1 S61.1C 

CA 

PRI013 

0490 

RHP 

27 

LAST 

T01 

26 , 2565 

0 5042 1 

TC 

PINDVAC 

0491 

REP 

18 

LAST 

T57 

Be, 1661 


ebank= 

A OO 

0492 

REP 

3 

LAST 

758 

26,2566 

02602 1 

2CADR 

S61.1A -i 

0492 





28,2567 

54066 0 



0493 





26,2570 

0 0006 1 

EXTBJD 


0494 

REP 

2 

LAST 

756 

26,2571 

3 2642 0 

DCA 

S?RVCADl 

0495 


10 

LAST 

755 

26,2572 

53«223 1 

PXCM 

AVEGEXIT 

0496 

REP 

25 

LAST 

752 

26,257 3 

0 5261 1 

TC 

2PHSCHNO 

0497 





26,2574 

00454 1 

CCT 

00454 

0498 





26,2575 

00415 1 

OCT 

00415 

•04981 

REP 

1 



26 , 2576 

3 4753 1 

CA 

EB6MTRY 

04982 

RHP 

33 

LAST 

601 

26,2577 

54 003 0 

TS 

ebank 

0499 

RHP 

45 

LAST 

TAT 

26,2600 

0 4574 0 

TC 

post jimp 

0500 

REP 

3 

LAST 

049 

26,2601 

76804 1 

CADR 

PHEREAD 


0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 


199 I ■AST T5T 


RHP 


W 13 
» 28 


LAST 289 
LAST 744 

LAST 756 
LAST 731 


B8P m LAST 758 


REP 

HEP 


26,2602 
26,26 0 3 

28.2604 

26. 26 05 

26.2606 
26 , 2607 
26,2610 
26,2611 
26,2612 

26.2613 

26.2614 

26.2615 

26.2616 
26,2617 
26,2820 


0 6006 
77204 
57 343 
01177 
64235 
01171 
01736 
71256 
00160 
43240 
54621 
14644 
47004 
54640 
54625 


31. lA 


TC 

BO/B 


VXV 


UNIT 


EM* 


BOvB 


INTPRET 

VLOAD 

tcdanzig 

VN 

MXV 

fW 

RBFSM4AT 
DLOAD 
MPAC +3 
DAD 

sei.iB 
C( 301LIM 
RTfl 
RETRNl 
RETRN3 


20*35 OCT. 28,1968 PANDORA .080 PACE 758 
UffiR-S PACE NO. is 86 s 3 


is averaged oc 
yes 

get future STATE VECTOR socn AS CAN 
RBTUref INHINTHJ *** 

for restart. 


HE WHO STARTS AVERAGER MUST SERVICE 
THE EXIT. 


SET EB= 7 FOR PREIKAD. 




PREREAD DOES TC TAatCVER. 


TUW» OFF CVFIND, IP CN 
VN C-T> M/CS 

IW (-29) M 
.5 UNIT MATRIX 

GET COS( THETA )/2 

DO TEST CN -YSH 
=1.0 -.5 COS( 30) 



I 


20*35 OCT. 28,1908 PANDORA .080 PACE 759 




< 
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L 

P61- 

-POT 







0510 





26,2821 

43276 

0 

sei.iB 

0517 

RBP 

2 

LAST 

758 

26,2622 

14644 

1 


0518 





28,2623 

77404 

1 


0519 

REP 

1 



26,2624 

54630 

0 


0520 

REP 

30 

LAST 

T22 

26,26 25 

0 5537 

0 

IfflTRN3 

0521 





26,2626 

01428 

0 


0522 

REP 

2 

LAST 

759 

28,2627 

0 2632 

1 


0523 

REP 

31 

LAST 

759 

26,2630 

0 5537 

0 

RBTRN2 

0524 





26,2631 

01427 

1 


0525 

REP 

4 

LAST 

697 

26,2832 

3 4743 

0 

♦2 

0526 

REP 230 

LAST 

757 

26,2633 

0 4555 

0 


0527 

REP 

3 

LAST 

699 

26,2834 

20602 

1 


0528 

REF 

1 



26,2635 

3 2645 

1 


0529 

REP 

231 

LAST 

759 

26,2636 

0 4555 

0 


0530 

REP 

11 

LAST 

TOO 

26 , 28 37 

01732 

0 


0531 

REP 

3 

LAST 

757 

26 , 2640 

0 1773 

0 

RETRIl 

0532 

REP 

12 

LAST 

758 

ET ,1431 




0533 

REP 

4 

LAST 

657 

28,2641 

03132 

1 

SERVCADI 

0533 





26,2642 

78067 

1 


0534 





28,2643 

22111 

0 

C<30)LIM 

0534 





28,2644 

17335 

1 


0535 





28,2645 

01750 

1 

10SECS 

0536 





26,2846 

00000 

1 

60SECDP 

0536 





28,2847 

13580 

0 



USBRiS PAGE NO. IT *6 S3 


DCCMP 

DAD 

C(30)LIM 

= 1.0- .5 CQS( 30) 

BO/8 

EXIT 

RBTW/2 


TC 

ALARM 


OCT 

01428 

IMJ unsatisfactory 

1C 

RBTW2 +2 


1C 

AIAIM 


OCT 

01427 

ihj reversed 

CAP 

V05N09 


TC 

bankcall 


CADR 

GCDSPR 

DO DISPLAY 

CA 

losses 


TC 

bankcall 


CADR 

DELAYJOB 


TC 

60CK7RET 


ehank- 

DvCNTR , 


2CADR 

SERVEXIT 


2DGC 

.566985 

= 1.0 -.5 COS( 30) 

DEC 

1000 

1000 cs 

2DEC 

6000 B-28 

6000 cs 






m 
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20*35 OCT. 29)1968 PANDORA , 0 80 PACE TOO 
USBR.3 PAGE NO. 18 Ea 83 


P053T 

■0538 

■0540 

■0542 

■0543 

■0545 

■0547 

■0549 

■0551 

■0553 

■0555 

■0557 

■0559 

■0500 

■0501 

■0502 

■0503 

10504 

>0500 

80507 

■0508 

■0509 

■0570 

■0571 

■0572 

■0574 

■0570 

■0578 

■0580 

■0581 

■0582 

■0583 

■0585 

■0587 

■0589 

■0591 

■0593 

■0595 

■0597 

■0599 

■0000 

■0601 


program mask 

M3D NO’ 1 
MOD BV* 

MOD NO’ 

MCD NO* 

MOD NO* 


SOI. 2 


DATE* 

LOG SECTION’ 


NORTH / BAIRN SPA THER 

2 MCD BY* MORTH/BAIRNSPATHER DATE* n MAY 67 

3 MOD BY* RR BAIHNSPATHER DATE* 2 1 NO V 67 

4 M® BY* RR BAIRNSFATHER DATE’ 21 MAR 08 

PlNCTtOML DGsCRim®* CALLED BY P 6 1. PRO/IDES DISPLAYS POR NOUNS N60 AND 

PROGRAM CALCULATES ENTRY DISPLAY OP MAXIMUM ACCELERATION EXPECTED (CMAx) 


14 FEB OT 
P01-P6T 


ADD 2ND ITER POR BRAD AT 400K PT 
VARIABLE WJ ADDED. 

DIFFERENT EARTH /MOCN SCALES IN TEP.S 
NO 3 . 

AND ALSO THE EXPECTED 


ELL^soiD VEL °pw^iav| P 4f^ri CGAFMAEI) THAT WILL OBTAIN AT 400K PT ABOVE THE FISCHER 

AND comers SECO ® DISPLAY RELATIVE TO THE EM SALT ABOVE FISCHER ELLIPSOID 

OO^PRCM NoTtTO^ SPW9< FR£W SO * (KIG0) » PR®ICIED INERTIAL VELOCITY (VIO) . AND THE TIME TO 

CALLING SEOJENCE* CALL 

SOI. 2 

CCMPAC) UNSPECIFIED 
PUSILOC WILL BE SET TO ZERO. 


TPPCCNIC, CALClEP, 
RTB P61.1 


TEP/TRIG, PISNCALC, GETERAD, VGAMCALC 


SUBROUTINES CALLED’ 

NORMAL EXIT MODES, 

ALARMS’ NCNE 

THE FOLLOWING REGISTERS ARE WRITTEN IN POR USE BY DISPLAYS 
(MAX 100 CMAX (-14) G,S MAXIMUM ACCELERATION 


OUTPUT’ 


VP RED (-7) M/CS PREDICTED VELOCITY AT 400K PT 

GAM4AEI GAMMA/360 PREDICTED GAM4A AT 400K PT 

POR TM, DP(GAMMAEI) = (GAM4AEI, RTOO) 
THBTAH/360 RANGE ANGLE TO SPLAJH PRCM EMSALT 

C-T) M/Cs INERTIAL VELOCITY AT EMSALT 

<-28> Cs TIf* TO H4SALT 


RTOO 

VIO 

TIE 


360 

EMSALT IS PAD LOADED 
EMSALT IS PAD LOADS) 
EMSALT IS PAD LOADED 



PUSH DO s 0 

CCNIC PARAMETERS STORED IN VAC AREA (SEE IFF SUBROUTINES) 
ERASABLE INITIALIZATION REQUIRED ’ 


RCNE 

VQNE 

URCNR 

UNI 

THETAH 

UNITW 

EMSALT 


(-29) M 
(-T) M/CS 
UR/2 
(-D 

THBTAH/360 

( 0 ) 

(-29) M 


STATE VECTOR 
STATE VECTOR 


DEBRIS’ 


UNIT NORMAL V*R 
RANGE ANGLE 
•UNIT POLAR VECTOR 
EMS INTERFACE ALTITUDE 
ORBITAL REBNTOY’ 284643 FT. LUNAR 

OPRET, 

ALL POL LOCATIONS ABCVE 120, INCLUDING Xl,X2,Sl,S2 
ALSO PDL+O ... POL+-5 , WHERE INITIAL PUSRDC - POL 


LEFT BY USER 
LEFT BY USER 
LEFT BY USER 
LEFT BY ENTRY / P61 
LEFT BY ENTRY / P61 
LEFT BY PAD LOAD 
LEFT BY PAD LOAD 
REENTRY’ 297431 FT. 



ASSH>BLB REVISION 249 OP AGO PROGR4M COLOSSUS BY NASA 2021111-041 


20*35 OCT. 28,196s PANDORA .080 PAGE 761 


L P61-P87 USERoS PAGE NO. 19 E6 S3 

P0602 

R0603 WE POLUWINO PU9I LIST LOCATIONS HAVE BEEN RESSHVH) FOR TPP ROUTINES AND Am REPEATED HERE FOR CONVENIENCE. 


R0805 OP COURSE POR S61.2 USAGE, EARTH ORIGIN SCALING IS USED. 

A0606 BELOW E* IS USED POR EARTH ORIGIN SCALE 

A060T M ’ IS USED POR MOON ORIGIN SCALE 


A0608 

rierm 

- 

18D 

TERMINAL RADIUS M 

B’ (- 29 ) M’ 

(-27) 

A0609 

NRIERM 

r 

16D 

TERMINAL RADIUS M 

E> (-29+NR) 


A0610 





M* C- 27 +NR) 


A0611 

RMAGi 

g 

12D 

PREsmr RADIUS M 

E’ (- 29 ) M’ 

(-27) 

A0612 

NRMAG 

s 

32C 

PRESENT RADIUS M 

B’ ( -29+-NR) 


A0613 





M’ ( -27+NR) 


A0614 

SDELP/2 



SIN( THETA) /2 



A0615 

CDELP/2 

s 

14D 

COS (THETA) /z 



A0616 

TFPX 

z 

34D 

X, AHOLMENT OP SERIES T(X) . 


A061T 

WEIW4 

r 

36D 

AHG FOR TRANSFER ANGLE CALCULATION. 

A0618 

TFFNP 

z 

28D 

LC p M E’ ( -38+2NR) M’ (-3B+2NR) 

A0619 

TEP/RTMU 

z 

30D 

1/SQRTCMU) 

E’ ( 17 ) M’ 

(14> 

A0620 

TVPVSQ 

= 

20D 

-(VN.VN/MJ) 1/M 

E’ ( 20 ) M’ 

(18) 




ASSBBLB REVISION 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 


L 

P61- 

-P67 







P0621 









0622 





34,3652 



BANK 34 

0623 

REP 

2 

LAST 

754 

28,2000 



SETLOC P60S2 

0624 





26,2650 



bank 

0625 

REP 

1 






cam* jj/sfli . 2 

A0626 









062T 





26,2850 

45345 1 

S61.2 

DLCAD DSU 

06271 

REP 

1 



26,2651 

02020 1 


BASALT 

06272 

REP 

1 



26,2852 

15000 0 


290KPT 

06273 





26,265 3 

71244 0 


8 PL DC DAD 

06274 

REP 

1 



26,2654 

54774 1 


LLKB4T 

0628 

REP 

1 



26,2655 

17345 0 


1 /RTMJ 

06281 





28,2656 

77624 1 

CALLCCN 

CALL 

0629 

REP 

1 



26,2657 

56750 0 


TPPCCNIC 

0630 





26,2660 

45145 0 


DLCHD CALL 

0631 

REP 

1 



26,2681 

15020 1 


RTRIAL 

0632 

REF 

2 

LAST 

514 

26,2662 

57060 0 


CALCIPP 

0633 





26,2663 

77824 1 


CALL 

0634 

REP 

2 

LAST 

634 

26,2664 

56573 0 


TPP/TRIO 


0635 

0638 REP 


26.2665 

26.2666 


T7624 1 
55 0 27 1 


PISHCALC 


0637 

0638 REP 2 LAST 762 


vu “ u * I O £. 

0639 REP 3 LAST 762 


28,2867 

26.2670 

26.2671 


45015 1 
02020 1 
57060 0 


DAD CALL 

BASALT 

CALCIPP 






28,2672 

77676 0 

DCCMP 


REP 

3 

LAST 

745 

28,2873 

03733 0 

STORE 

TIEl 

REP 

6 

LAST 

745 

26,2674 

37727 1 

STCALL TIE 

REP 

3 

LAST 

762 

28,2675 

56573 0 


TPP/TRIO 

REP 




26,2676 

77624 1 

CALL- 


2 

LAST 

762 

26,2677 

55027 1 


PISCALC 

REP 




26,2700 

77624 1 

CALL, 


1 



20,2701 

56626 0 


VHCALC 

REP 




26,2702 

77624 1 

CALL 


1 



28,2703 

56613 0 


DISPTARG 





26,2704 

77624 1 

CALL 


REP 

2 

LAST 

762 

28,2705 

56613 0 


DISPTARG 

REP 

5 

LAST 

275 

26,2706 

37714 1 

STCALL 

RTGO 






20*35 OCT. 28,1988 PANDORA .080 PAGE 762 
USER.S PAGE NO. 20 Be S3 


POL LEFT AT ZERO BY WBGBTNG 


bstablisi Wj fob orbital entries 

PILL VAC AREA with CCNIC PARAMETERS 


1 ST GUESS AT 1BR4INAL RADIUS (-29) 
SAVES MPAC IN RTEHM (lsD) 


CALC S5ELP/2, CDGLP /2 
RETURN WITH S( THETA) IN MPAC 


GET PISCHER RADIUS (- 29 ) M 
ANS IN MPAC AND IN BRADS . 


SAVES MPAC IN RTEHM (jgD) 


negative as in countdown. 

DBCR tie PROS base TIEl. (RESTART) 
WLIST AND DSKY WILL USE TTB. 

LET MISS CCNTRL DGCR BY ELAPSED TIME 
TTE= TIM? FRCM HO* TO EMSALT +FISCHER 


S( THETA) IN MPAC CM RETURNING 
AM) THETA= RANGE FRCM NCW TO BMSALT 
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USER-S PAGB NO. 21 

0652 

BBP 

2 

LAST 

634 

28,2707 

55050 1 


VCWMCALC 


0653 





26,2710 

77805 1 

DMP 


MPAC = GAMMA 

A0654 









POLO HAS VGAM. 

0655 





26,2711 

43265 1 

axv 

DAD 


0656 

RBP 

1 



26,2712 

15028 1 


VEM3CCN 

-HS D 180/PI 4 —14 > 

065T 





26,2713 

00001 0 


0 

VGAM PRCM POLO. 

0658 

RBP 

5 

LAST 

275 

26,2714 

17725 1 

STCDL 

VIO 

PREDICTED VELOCITY AT bmsalt. 

A0650 








G4M4A AND VGAM AT 300K PT ARE REQUIRED Hi 

A0660 








ALGORITHM. 


0661 

RBP 

5 

LAST 

600 

26,2715 

02241 1 


BHADM 

earth radius prom gbterad 

A0662 









= PISCHBR RADIUS (-29) 

0663 





26,2716 

77615 0 

DAO 



0664 

REP 

1 



26,2717 

06462 1 


300KFT 

M (-29) 

0665 

BEP 

1 



26,2720 

34023 1 

STCALL RIEHM 

TERMINAL RADIUS M (-29) 

0666 

RBP 

1 



26,2721 

55045 0 


PFEVGAM 

vgamcalc WITH NEW rteem 

A066T 









VBAR - (V(FPS) - 36KF/S) / 2( 

R0668 

cmx - 

(4/<l* 

4.8 

VBARSQ) I (GAM -6.05 - 

- 2.4 VBARSO) - 10 <L/D -. 3 ) *io 

ASSUME L/D = 0.3, BANK = 0 . 

A08T0 







CMAxCALC 



06T1 





28,2722 

45 325 1 

POOL 

DSU 

GAM TO POL 2 

06T2 





26,27 23 

00001 0 


0 

VGAM IS IN PDLO (-7) 

06T3 

HBF 

1 



28,2724 

15004 1 


38KFT/S 

(-T) M/CS 

06T4 





26,2725 

63471 0 

DDV 

DSQ 


06T5 

RBP 

1 



26,2726 

15006 0 


20 KFT/S 

(- 6 ) M/CS 

0676 





28,2727 

00001 0 

STORE 

0 

VBARSO (-2) TO PDLO 

0677 





26,2730 

43205 1 

DMP 

DAD 


0678 

RBP 

1 



26,2731 

15010 1 


KRl 


A0079 









GAM, POS DOWN, PRCM PDL 2 

0680 





28,2732 

41215 1 

DAD 

DMP 


0681 

RHP 

1 



28,27 33 

15012 0 


-6 .05*73 


0682 

RBP 

1 



28,2734 

15014 0 


KRZ 


0683 





28,2735 

77725 1 

POOL, 


XCH PDL+0 POR VBARSO (-2) 

0684 





28,2736 

43271 1 

DOV 

DAD 


0685 

RBP 

1 



28,2737 

15024 0 


KR4 


0686 

RBP 

1 



28,2740 

17357 0 


DP2(-4> 


0687 





28,2741 

77665 1 

BDOV 



A06B8 









NUM PRCM PDL+0 

0689 





28,2742 

51015 1 

DAD 

BPL 


0690 

RBP 

1 



26,2743 

15016 1 


KR3 


0691 





28,2744 

54747 1 


♦3 


0692 





26,2745 

77745 1 

DLGAD 



0693 

RBP 

22 

LAST 

678 

26,2746 

15332 1 


HI 6 ZSROS 


0694 

RBP 

3 

LAST 

275 

26,2747 

17722 0 

STCDL 

O-WX 

100 GMAx (-14) 
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R0095 DISPLAY USES (MAX AS SP, SO LO WORD IS WRITIBL OVER BY VPR0D. 


0896 

REP 

6 

last 

763 

26,2750 

02241 1 



BRADM 

= FISCHER RADIUS <-29> M 

069T 





26,2751 

45015 1 


DAO 

CALL 

2 ND ITERATION FOR PISCHBR RADIUS 

0698 

REP 

1 



26,275 2 

15022 0 



400KPT 


0699 

REP 

4 

LAST 

762 

26,2753 

57080 0 



CALCTPP 

ESTABLISL TRANSFER ANGLE DATA. 

OTOO 





26,2754 

77624 1 


CALL, 



0701 

REP 

4 

LAST 

762 

26,2755 

56573 0 



TPP/TRIG 

GET SIN, COS DBLP 

0T02 





26,2758 

77624 1 


CALL 



0703 

REP 

3 

LAST 

762 

28,2757 

55027 1 



PISHCALC 

GET CORRESPONDING PISCHER RADIUS. 

0704 





26,2760 

73015 1 


DAD 

LXA .2 

SAVE HI -WORD FOR DOWNLIST. 

0705 

REP 

2 

LAST 

764 

28,2761 

15022 0 



400KPT 

M (- 29 ) 

0706 

REP 

6 

LAST 

762 

26,2762 

03713 1 



RTGO 

(RANGE ANGLE PROM EMSALT1/360 

0707 

REP 

2 

LAST 

763 

26,2763 

340 23 1 


STCALL R1EFM 


0708 

REP 

2 

LAST 

763 

26,2764 

55045 0 



PREVGAM 

VQAMCALC WITH NEW RTEHM 

0709 





28,2765 

67076 1 


DC CMP 

SCA ,2 

HI -WORD OP EACH CN DOWNLIST. 

0710 

REP 

278 

LAST 

758 

26,276 6 

00155 0 



MPAC 4.1 


0711 

REP 

5 

LAST 

275 

26,2767 

17771 0 


STCDL 

GAMMAEI 

COLIC (WMA/380 AT 400K PT. ( HI-WORD) 

A0712 










COLIC RTGO/360 PROM EMSALT (LOW-WORD) 

A0713 










FOR TM, DP(GAM4AEI)r (GANMA, RTGO)/360 

*0714 










VGAM FROM PDL +-0 (-7) 

0715 





26,2770 

77626 0 


stadr 



07ie 

REP 

6 

LAST 

275 

26,2771 

74010 0 


STORE 

VPRED 

COUC VELOCITY AT 400K PT 

0717 





26,2772 

776 34 0 


RTB 



0718 

REP 

1 



26 , 2773 

54267 0 



P81.1 


*0719 










PM, BACK TO ZERO. 

07192 





26,2774 

52145 0 

LUNENT 

DLCAD 

GOTO 


07193 

REP 

3 

LAST 

510 

26 , 2775 

06456 0 



l/KIHJB 

establish mu for lunar type entries 

07194 

REP 

1 



26,2776 

54656 0 



CALLCCN 


07195 





28,2777 

00002 0 

290KPT 

2 DEC 

88392.0 B-29 


07195 





26,3000 

26244 1 





07196 





28,3001 

00052 0 

KWI *1 

2 DEC* 

.421844723 B 2 B 

-14* 1100 2PI^163S4( 163.84) 

07196 





28,3002 

05716 1 





0720 





28,3003 

33335 1 

36KFT/S 

2 DEC 

109.728 B -7 

(-7) M/CS = 36 KPT/S (-7) 

0720 





26,3004 

05707 1 





0721 





28,3005 

36365 1 

20 KPT/S 

2 DGC 

121.92 B-7 

(- 6 ) M/CS = 2 20KPT/S (-7> 

0721 





28,3006 

30244 0 





0722 





28,3007 

77113 1 

KRl 

2 DEC 

-.026666667 

=- 2.4 4 / 380 

0722 





26,3010 

42770 1 





0723 





28,3011 

77354 0 

-6 .05DEG 2 DEC 

-.016805556 

= -6.05 / 360 

0723 





28,3012 

65030 1 





0724 





28,3013 

21450 0 

KR 2 

2 DEC 

.54931641 

=(360/4) 100 (-14) = 9000 B -14 

0724 





28,3014 

00001 0 





0725 





26,3015 

01750 1 

KR3 

zpec 

1000 B-14 

= 100 (10.0) (-14) G, S 

0725 





28,3016 

00000 1 
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A0726 

0727 

0727 

A0T28 



0729 

0729 



R0730 

300KPT 

2DGC 

R0731 

B4SALT 

2DEC 

R0732 

emsalt 

2DEC 

0733 

0733 

0734 

0735 
0735 

A0736 

REP 3 

LAST 


28,3017 

00305 1 

28,3020 

04541 0 

28,3021 

00003 1 

26,3022 

27040 0 

91*40 B-29 

(-29> 

88759.2 B-29 

284643 

90657 B-29 

297431 

26,3023 

32525 1 

26,3024 

12525 0 

510 23,2461 


26,3025 

77777 0 

26,3028 

76601 1 


ASSUM33 L/D = 0.3, BANK =0. 

RTRIAL 2DEC 8460097.18 B-29 RPAD >284643 PT =21 194 545 PT 

RPAD DEPINED AS 20 909 901.57 PT =6 37 3 338 M 
400KPT 2DEC 121920 B-29 ICTERS 

M 

PT t -29 > M (ORBITAL REENTRY) 

PT <-29> M (LUNAR REENTRY) 

KR4 2CEC .833333333 

300 KPT equals minperb 

VEMSCCN 2DEC -.0389676 B-14 = -HS D /2 PI (-14) M SQ/ CS SO 

=- 16389 . 050 32-2 . 3048 . 3048/2 PI (-14) 



I ta*'" 


2021111-041 
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P0T3T 
ROT39 
R0741 
ROT 42 
R0T44 
R0T48 


ASSBCLg REVISION 249 OP AOC PROGRAM COLOSSUS BY NASA 

P81-P6T 

PISICALC (USED BY S61.2) 


PAGE NO. 24 


DATE’ 

loo sBQnnw" 


01.21 .87 

P81-P6T 


B6 S3 


SBROUrlNE NAME* 

MOD NO’ 0 

MOD BY’ MGKIH / BAIRN SFATHER 

nNPrrmai 1 0AIRNSFA1HE B DATE’ 11 MAY 67 INCLUDE (EEERAD CALL 

™ CTlaiAL *^™: ^ PHESENT position, unite, calculate a NEW UNiniRTHAT IS rotated through 

TRANSFER ANGST?, theta, ALONG TRAJECTORY. THH( CAIAiATE SIN(LAT) AND UIEffi to obtain pischer RADIUS. 


R0T48 


R0T50 

R0TS1 

R0T52 

R0T53 


SINCE PISICALC USES INI ILEPT BY ENTRY) EARTH SCALING IS ASSUW2D. (WILL MHHOVB FOR SUITABLE TENNANT) 
CALLING SEQUENCE’ CALL 


PISHCALC 

BITER WITH .5 SIN(THETA) IN MPAC. 

PUSHLOC IS AT PDL+o, AN ARBITRARY BASE VALUE IF LEO ftD 


R0T54 

SUBROUTINES CALLS)’ GETERAD 





H0TS5 

NORMAL EXIT MODE’ 

RVO 





R0T56 

EXIT MODES’ 

NOTE 





R0T5T 

OUTPUT’ 

ERADM (- 

-29) M IN MPAC CN RETUIMING 



R0T58 



NEW (MIT VECTOR NOT 

SAVED. 




R0T59 



SIN(LAT) 

NOT SAVED. 





R0T60 



PUSHLOC AT PDL+-0 





R0T61 

erasable initialization required 1 




R0762 



SDELF/2 

=SIN(THETA) /2. 

IN MPAC 



R0764 



CDBLE/2 

rCOSCIHETA) /2, STORED IN PDL uD 


R0766 



RCNE (. 

29) M 





R0T68 



VCNE (- 

7) M/CS 





ROTTO 



URCNE UR/2 





H07T2 



UNI 

.5 UNIT( 

V*R) 




R0TT4 



unit# 

UNIT NORTH POLE 




R0TT6 

DEBRIS’ 

qpret. 

PDL*o ... 

PDL+5 




ROTTT 









aottb 









0TT9 




28,3027 

47315 0 

FISHCALC PDVL 

vxv 

OTBO 

REP 

3 

LAST 744 

28,3030 

02343 1 



URCNE 

0T81 

HEP 

3 

LAST 744 

28,3031 

035 0 2 0 



UNI 

0782 




28,3032 

78561 1 


VXSC 

VSLl 

A0783 









0784 




28,3033 

74315 0 

- 

PDVL 

vxsc 

0785 

REP 

4 

LAST 766 

26,3034 

02343 1 



URCNE 

8786 

REP 

2 

LAST 634 

28,3035 

00017 1 



Q3BLP/2 

8787 




28,3038 

45455 1 


VAD 

swdr 

07871 

RHP 

1 


28,3037 

74235 0 


STORE 

URH 

0788 




28,3040 

72441 0 


DOT 

SIil 

0789 

REP 

T 

LAST 529 

28,3041 

01714 1 



UNIT# 

0790 

REP 

12 

LAST 756 

26,3042 

02156 1 


STORE 

alpkav ^ 

0791 




28,3043 

77650 1 

DWPFISH GOTO 


0792 

REP 

2 

LAST 618 

28 , 3044 

26437 0 



GBTERAD 

A0793 










LEFT BYTHWIRIG 
LEFT BY THW/miG 

left Bruns® 

LEFT BYUfflJffi 
left by iracm 

LEFT BY KNIJSir / P 61 
LEFT BY HAG) ILOAD 


UHPR = It® BDHLF + LHOR SDELP 


SINClHETA)) /ft PRCM pOL+0 
TO POL*®,, -t«5 

COS (THETA)) //ft 

for use ns amso frcm ems dispiay 

full UNTIIT VECTOR UNIT north 

= .5 -swaynD)' 

SAVES FBaWW RAD (-29) M IN ERADM AND 
IN MPAC„ BFKVRNS TO CAIIER VIQ OPRET. 


If 
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SLBR0UTIN2 NAfE’ VGAMCALC 


(USED BY S61.2> 


MCD NO* 

MOD BY* WORTH / BAIRNSPAWER 
MCD NO* 1 MOD BY* RR BAIRNSPATHBR DATE* 11 APR 87 

MOD NO’ 2 MCD BY’ RR BAIRNSPATHBR DATE’ 21 NOV 87 VARIABLE Mr ADDED. 

MOD NO’ 3 MOD BY’ RR BAIRNSPATHBR DATE’ 21 MAR 88 ACCEPT DIFFERENT EARW/MOCN SCALE 

FUNCTICNAL DESCRIPTION’ BARTH CENTERED VIS VIVA CALCULATION OP TERMINAL VELOCITY AND GAMMA CREL TO 

HORIZONTAL) GIVEN THE SCALAR QUANTITIES’ PRES©<T RADIUS AND VELOCITY AND THE TERMINAL RADIUS. 
WE USER MJST APPEND PROPER SICK TO GAMMA, SINCE IT IS CALCULATE) AS A POSITIVE NlI®ER. 

WE EOLATIONS ARB 


DATE* 

LOG SECTION* 


01.21.67 

P81-P87 


VARIABLE MI ADDS). 

ACCEPT DIFFERENT EARTH/MOCN SCALE 


VOAM = SQRTCVN VN/MJ ♦ 2<RN-RIERM) /(IM RTERM) ) RTMU 


COSQAM = H /RTERM VGAM - SQRT(LCP)/ (RIEIW VGAM/RTMU) 

VGAMCALC ASSUMES THAT THE TERMINAL RADIUS IS LESS THAN THE PRESENT RADIUS. BOW CALCTFF AND CALCTPER 
MLKE WIS ASSUMPTION. 


CALLING SEQUENCE’ CALL 

VGAMCALC 

PUSHLOC AT POL to, ARBITRARY IP LEO 12P 


STCALL RTERM 

PREVGAM 


C(MPAC) UNSPECIFIED 


CIMPAOnNEw RTERM 


SUBROUTINES CALLED’ NONE 
NORMAL EXIT MODE’ RVO 
ALARMS’ NONE 

OUTPUT’ GAMMA / 380 IN MPAC, POSITIVE NOSER 


VGAM E’C-T) M’(-5) M/CS IN 1 
PUSHLOC AT PCX.t2 
ERASABLE INITIALIZATION REQD’ 

TPE/RIMJ E ’ C 17 ) M’ ( 14 ) 1/SQRT<MU) 

BMAGi E’C-29) M’(-27) M PRES® 

NBMAG E’ (-29+NR) M NORM U 

M’ ( -27 +NR) 

RTERM E’<-29> M’C-27) M TERMING 

NRTERM E’ (-29+NR) M NORM U 

M’ (-27+NR) 

TPEVSQB’(20) M’<18> 1/M -(V S< 

TFFNP E’ (-38+2NR) M LCP, SI 

M’ <-36t2NR) 

DEBRIS’ OP RET, PDL+0 . . . PDLt3 

RTERM, NRTERM IP PREVGAM ENTERED 


IN PDL+0 


PRESENT RADIUS LENGW 
NORM LENGW CP PRESENT POSITION 


LEFT BY TFFCCNIC. 
LEFT BY TEFCCNIC 
LEFT BY TEFCCNIC 


TERMINAL RADIUS LENGW 

NORM LENGW OF TERMINAL RADIUS 


LEFT BY CALCTFF 
IEFT BY CALCTFF 


-(V SQ/MU)’ PRESENT VELOCITY, NORM 
LCP, SEMI-LA TUS RECTUM, WEIOTT NR 


LEFT BY TFFCCNIC 
LEFT BY TFFCCNIC 






ASSEMBLE REVISION 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 
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P0848 

0S4T 

A0848 

0849 

0850 

0851 

0852 

0853 

0854 

0855 
0858 
085T 
0858 

A08S9 

0860 

0861 

0862 

0863 

A0864 

0865 

0866 

0867 

0868 
0869 

A0870 

aobtoi 

0871 

0872 

A08721 

*0873 


28,3045 77657 0 PREVCMM SL* 






28,3046 

20201 

0 

REP 

1 



26,3047 

00021 

1 

REP 




26,3050 

41345 

0 

1 



26,3051 

00041 

1 

REP 

2 

LAST 

T68 

26,3052 

00021 

1 

REP 




28,3053 

45325 

1 

2 

LAST 

768 

26,3054 

00041 

1 

REP 

3 

LAST 

768 

26 , 3055 

00021 

1 





26,3058 

58257 

1 





26,3057 

20171 

1 

REP 




26,3080 

77625 

0 

1 



26,3081 

00025 

0 





26,3062 

41566 

1 





26,3063 

65271 

0 

REP 

4 

LAST 

510 

26,3064 

00037 

0 

REP 




26,3065 

65205 

0 

4 

LAST 

768 

26,3068 

00021 

1 

REF 

1 



26 , 3067 

00035 

1 





26,3070 

56368 

1 





26,3071 

65542 

1 





28,3072 

77616 

0 


DUMPVGAM RVO 


20*35 OCT. 28,1988 PANDORA .080 PAGE 788 
USERaS PACE NO. 28 Be S3 


INTER WITH NEW RTE1W IN MPAC 
B> (-29) M* (-27) 



0,1 

XI = -NR 



STORE 

nriefm 

RTEH4 M 

B*(-29*NR) 

M*(-27+NR) 

: DUMD 

DMP 





NIMAG 

R4AO M 

E’(-29U;rt) 

M*(-27+NR) 


NRIEW4 

RTEFM M 

E*(-29+NR) 

M*(-27*NR) 

FOOL 

DSU 

R4AG RIEFM M 

E*C-58»2NR) 

M’ ( -54+2NR) 


NHMAG 

RMAO M 

E’(-29*NR>- 

M*(-27+NR) 


NR1EIM 

RTEFM M 

B>(-29*NR> 

M*(-27+NR) 

SL* 

DCV 

2(RN-RTBfM> 

E*(-30*NR) 

M’(-28tNR) 


0 -80,1 

(-8+NR) 





PUSH UP PRODUCT. 



DSU 






7FPVSQ 

-(V SO/M)) 

B’ (20) 

M* (18) 

SORT 

PUSH 

SAVE VQAM/RT(MU) 

POR NOW . B’ 

(10) M>(9) 

DCV 

POOL 

XCH POL+0, LEAVING VGAM FOR OUTPUT. 



VOAM TO POL M/Cs 

E’ (-7) 

M* (-2) 


TPP/RTMT 

E* ( 17 ) M* ( 14 ) 



DMP 

POOL 

RTEFM VGAM/RTMU 

E»(_i9»NR) 

M*(-18+NR) 


NRIEFM 

RTEFM M 

E'(_29»NR) 

M * ( -27 +NR) 


TPPNP 

LC P rH.H/MU M 

B*(-38+2NR> 

M’(-36+2NR) 

SORT 

ntv 


B>(-1 9 ,NR) 

M* ( -18+NR) 



PUSH UP DEN 

E*(— 79+NR) 

M*(-18+NR) 



USE DDV (VPL AS LIMITER (VCOSY ±i 0 > , 

SRl 

ACOS 



I 




CALLER MUST SUPPLY OWN SIR* 


22W 


27MS 
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P08T4 

HOSTS 

ROSTS 

ROSTS 

ROSSO 

R0882 

R0884 

R0BS5 

ROBBS 

R088T 

R088S 

R0SS9 

ROSSI 

R0893 

R0894 

R0895 

B089S 

ROBOT 

ROS98 

R0899 

R0900 

R0901 

R0902 

R0903 

R0904 

R0905 

R090T 

R09O9 

R0911 

R0913 

R0914 

R0916 

R091T 


tef/trig 


(USD BY SSI .2) 


DATE 01. IT. ST 

LOG SECTION ’ P61-P6T 


ACCEPT DIFFBRI2(T EARTH /MOON SCALE 


StBROUTIf® MAMS’ 

HOD NO’ 0 

MOD BY’ HR BAIHNSPATK3R 

)4D HO’ 1 MOD BY’ RE BAIRN SPA THER DATE’ 14 APR 67 

CT) NO’ 2 MOO BY’ RR BAIENSPATKER DATE’ 21 MAR 68 

FUNCTKMAL DESCRIPTION’ USED BY ENTRY DISPLAY TO CALCULATE SIN(THETA), COSCTHETA) FR£M DATA LEFT IN 

POL BY TEE SUBROUTINES. THE EONS ARE 

COS( THETA) = 1-2 ABS(ARG) /(HN RIE8M <1*X> > 

2 

SIN(THEIA) = SGNCARG) SQRT<l-COS (THETA) ) 

■HERB THETA = TRANSFER ANGLE 

AM) AHG = P Z ABS(Z) ALEA ZZ LEO 1 

ABO = (P / ALEA) SWCOl * R l/Z) IB ALEA Z Z G 1 

AM) AHG HAS BEEN AFFIXED WITH THE SIGN OP SIN(THETA). 

CALLING S8aK«CE’ CALL 

TEE/TRIG 

PUSTLOC AT POt.,0, ARBITRARY IF NOT BO 14D 
C(MPAC) UNSPECIFIED 


SUBROUTINES CALlfD’ 
NORMAL EXIT MODES’ 


NCNE 

RVO 


ALARMS’ 

OUTPUT* 


NCNE 

C(MPAC) = 

coei*/ 2 3 


ERASABLE 


.5 SIN(THETA) 
.5 COSCTHETA) 
PUSILOC AT PDL+0 
INITIALIZATION REQUIRED ’ 


(IN POL 14D) 


TEPX 

THEISM B’ 
M’ 

NHTEFM E’ 
M’ 

NRMAG E’ 
M’ 


(-59+2NR) 
( -55 +2NR) 
(-29+NR) 

( -27 *NR) 
(-29+NR) 
(-27+NR) 


X 

ARC 

WHERE ARG 3 LCP ZZ SCN(DeLP) 


LEFT by CALCTPF OR CALCTPER 
LEFT BY CALCTE’P OR CALCTPER 
OR ARG 3 LCP/ALFA SGN(DELP) 


M NORM LENGTH OP TERMINAL RADIUS 


LEFT BY CALCTFF OR CALCTPER 


M N0K4 LENGTH OP PRESENT POSITICN LEFT BY TEFCCNIC 


DEBRIS’ QPRET, CDELE/2 


091T2 





27,2573 

09173 

HEP 

1 



27,2000 

091T5 





27,2573 

0918 





27,2573 

0919 

REP 

1 



27,2574 

0920 





27,2575 

0921 

HEP 

8 

LAST 

635 

27,2576 

0922 

HEP 

3 

LAST 

760 

27,2577 

0923 





27,2600 

0924 

REP 

5 

LAST 

768 

27,2601 

0925 

REP 

1 



27,2602 

0926 





27,2603 

0927 

REP 

9 

LAST 

769 

27,2604 

0928 

REP 

3 

LAST 

766 

27,2605 

0929 





27,2606 


BANK 27 
®TLOC P60S5 
BANK 


70545 

1 

TFF/TRIG DLQAD 

SRl 

00043 

0 


TFFX 

41215 

1 

DAD 

DMP 

15330 

0 


HIDPHALF 

00041 

1 


NFMAG 

55205 

0 

DMP 

BDCV 

00021 

1 


NRTERM 

00045 

0 


THPIEM 

44246 

1 

ABS 

BDSU 

15330 

0 


HIDPHALF 

00017 

1 

STORE 

CDELF/2 

57516 

1 

DSQ 

DCCMP 


HMAG M E’(-29+NR) M’ ( -27 +NR) 

RTERM M E’(-29+NR) M’(-27+NR) 

P ZSQ OR P/ALFA B’(-59<-2NR> M’(-55+2NR> 
THE SIGN IS FOR SDELF. 

.5 COS( THETA) 

KEEP HCNEST FOR SORT. 
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0930 





27,2607 

75415 0 

DAD 

SORT 



0931 

RRP 

1 



27,2610 

15322 0 


HIDP 1/4 



0932 





27,2811 

43565 0 

tXMPTRIG SICK 

RVO 



0933 

A0934 

REP 

2 

last 

769 

27,2812 

00045 0 


TVPTEM 

AFFIX SIGW(DBLE/2) 











REIUrei WITH .5 SINITHBTA) 

IN MPAC 

A093S 




















16W 

15 

0936 





27,2613 

77620 0 

DISPTARG STQ 


C(MPAC) = TRGO ESTIMATE 


093T 

REP 

4 

LAST 

759 

27,2614 

03373 0 


60®NRBT 



0939 





27,2615 

45205 1 

DMP 

DSU 



0940 

REP 

1 



27,2616 

15002 1 


KTEWi 



0944 

REP 

4 

LAST 

762 

27,2617 

03733 0 


TIEl 



0945 

REP 

6 

LAST 

289 

27,2620 

37606 0 

SICALL 

dtearot 



0946 

REP 

2 

LAST 

289 

27,2621 

48225 0 


EARROT2 



0947 





27,2822 

77624 1 

CALL 




0948 

REP 

2 

LAST 

762 

27,2823 

58826 0 


VRCALC 



0949 





27,2624 

77650 1 

GOTO 




0950 

REP 

5 

LAST 

770 

27,2625 

03373 0 


60CENRET 



0951 





27,2626 

50375 0 

VRCALC VLOAD 

DOT 



0952 

REP 

2 

LAST 

766 

27,2627 

03542 1 


urn 



0953 

REF 

3 

LAST 

289 

27,2630 

03474 0 


RT 



0954 





27,2031 

65512 1 

SL2 

ACOS 



0956 





27,2832 

77616 0 

RVO 




R095T 

END OP PROGRAM 

S61.2 
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P0958 

M950 

M9S0 

R0981 

MM2 

MM4 

MOSS 

MOST 

MM8 

M9T0 

M9T1 
M9T2 
ROOT 3 

M9T4 

MOTS 

MOTT 

MOTS 

M9T9 

R0980 

M082 

M983 
M984 
M985 
M98S 
B098T 
M988 
M980 
M990 
M991 
M992 
M993 
M994 
M996 
M99T 
00998 
M999 
111 000 
HI 001 
*1 002 
R1003 

1004 

1005 
1008 


15 MAY 87 
IT JAN 68 


CHANGED TO REP COORDS. 
ALPAPAD CHANGES MADE. 


PROGRAM DESCRIPTION S62.3 DATE 10JAN6T 

HDD NO 1 LOG SECTION P60-P6T 

MCD BY ZELDIN 

MOD NO’ 2 MCD BY* RR BAIRNSPATHBR DATE’ 

MOD NO’ 3 MCD BY’ RR BAIRNSPATHBR DATE’ 

RNCriCNAL DESCRIPTION 

COMPUTE DESIRH5 GIX3CL ANGLES POR EL TRY ATTITUDE 

THE FOLLOWING TRAJECTORY. TRIAD IS AVAILABLE IN MEMORY AND IS CCMPUTHD EACH 2 SECONDS BY CM/POSE IN 
RBFERaLCE COORDINATES (V = VELOCITY RELATIVE TO EARTH) ’ 

IBCA = -UNIT(V) 

UYA - UNITLV+R) 

UZA = UYA4UYA 

®®RATE A DESIRED BODY TRIAD FOR TRIMMED FLICttT WITH RESPECT TO THE RELATIVE VELOCITY VECTOR USING 
ROLL CCM4AND AND TRIM ANGLE CP ATTACK’ 

UYD = lNIT<UYD4U)CA) SIN(ALPATRIM) * UYA COS(ALPATRIM) 

UYD - UYA COS(ROLLC) + UZA SIN(ROLLC) 

UZD r UYD * UYD 


USE THE DESIRED SET ( IN REFERENCE COORDS) AND 
IN 2 S,C IN MPAC, >2 AND THETAD, +2. 


CALLING SEQUENCE 
L CALL 
L +-1 S62.3 

NORMAL EYIT MCDE 

RETURN VIA QPHET DIRECTLY FROM CALCGA . 
Sl^ROUHNES CALLED 
caloga 

alarm or abort modes 

NCNE 

erasable INITIALIZATION required 
R0LLC ROLL CCM4AND 
ALFAPAD SP 1 S,C /180 
UYA /2 PEP COORDS 
UYA /2 REF COORDS 
UZA /2 REF COORDS 


RBFSM4AT TO CALL CAlCGA AND OBTAIN GIMBAL ANGLES 


DP l’S CCMP AT 1 REV 
LEFT BY PAD LOAD 
LEFT BY CM/POSE 
LEFT BY CM/POSE 
LEFT BY CM/POSE 


ALFATRIM IS NEGATIVE. 


OUTPUT 


DEBRIS 


CpHI GIM5AL ANGLES (0,I,M) 2 ’S CCMP TP IO,I,M)/isO 


QTEMP, OPRET.PUSNLISr 


10,2302 

10,2000 

10,2302 


BANK 10 
SETLOC P60S4 

bank 
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COUNT* SJ/S62.3 


1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 
101T 
1018 

1019 

1020 

A1021 

1022 

1023 

1024 

1025 

1026 
A102T 
A1028 

1029 

1030 
A1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 
A1046 
A1047 


REP 

REP 

REP 

REP 


REP 3 LAST 116 


REP 


REP 

REP 

REP 

REP 

REP 

REP 

REP 

REF 


HEP 

REF 


6 

6 

29 
33 

30 
4 

31 
3 



10,2302 

67201 0 S62.3 

SETPD 

SLQAD 




10,2303 

00001 0 


0 



747 

10,2304 

03012 1 


ALPAPAD 

ALFATRIM /180 , ALFA IS NEG. 


10,2305 

41542 1 

SRI 

PUS! 




10,2308 

65 346 0 

COS 

POOL 

XCH POL, COS TO POLO 



10,2307 

6 5 356 1 

SIN 

POOL 

SIN TO POL2 


747 

10,2310 

03316 0 


ROLLC 




10,2311 

74348 0 

COS 

vxsc 



116 

10,2312 

035 5 0 1 


UYA/2 


REP COORDS 


10,2313 

73525 1 

POOL 

SIN 

PUSH VECTOR INTO PDL4, .9 


772 

10,2314 

03316 0 


ROLLC 




10,2315 

53361 0 

vxsc 

VAD 



116 

10,2318 

03556 1 


UZA/2 


REP COORDS 






VECTOR PRCM POM, g 



10,2317 

77772 0 

VSLl 




718 

10,2320 

02722 1 

STORE 

YNH 

- UYD 

REP COORDS 


10,2321 

76435 1 

VXV 

VSLl 



116 

10,2322 

03542 1 


UXA/2 


REP COORDS 


10,2323 

65361 0 

VXSC 

POOL 








SIN TRIM PRCM POL2 







XCH POLO POR COS TRIM 



10,2324 

53381 0 

VXSC 

VAD 



772 

10,2325 

0354 2 1 


UXA/2 


REP COORDS 






PRCM POLO 



10,2326 

77772 0 

VSLl 




728 

10,2327 

02714 1 

STORE 

XNB 

X SC AXIS ( .5 UNIT) 

REF COORDS 


10,2330 

78 4 35 1 

VXV 

VSLl 



772 

10,2331 

02722 1 


YNB 



718 

10,2332 

26730 1 

STCVL 

ZNB 

Z SC IN REF COOR. SCALED AT 2 

758 

10,2333 

01736 1 


FEFSM4AT 



728 

10,2334 

26672 0 

STOVL 

XSM 



772 

10,2335 

01744 1 


REPS44AT +6 



436 

10,2336 

26700 1 

STCVL 

YS4 



772 

10,2337 

01752 0 


REPSM4AT +120 



436 

10,2340 

02706 1 

STORE 

ZSM 




10,2341 

52014 0 

CLEAR 

GOTO 




10,2342 

00260 0 


CPHIPtAG 

CAUSE CAI.CGA TO STORE ANS 

IN TP CPHI 

728 

10,2343 

47244 0 


CALCGA 






CALCGA Will, RETURN TO ORIGINAL CAUJF5R 
VIA OPRET WITH 2, S CCMP. ANGIES IN CPHl 
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R0001 PROGRAM NASE - PRBREAD, READACCS, SERVICER, AVERA® G. 

R0002 MOD NO. 00 BY M .HAMILTON DEC.12, 1966 
R0003 FUNCTIONAL DESCRIPTION 

R0004 THE ROUTINES DESCRIBED BELOW ARE USD TO CALCULATE VALUES ® RN, VN, AND COT/ 2 DURING ACCELERATE) FLIGHT. 

R0006 THE SEVERAL ROUTINES COMPRISE A PACKAGE AND ARE NOT MEANT TO BE USED AS SEPARATE SUBROUTINES. 

R0008 general references to servicer or AVERA® G ARB UNDERSTOOD to refer to THE FNTIRE SET CP ROUTINES INCLUDING 
R0010 READACCS, SERVICER, AVERAGE G, INTEKSAD, S-WOIH2R, AND ANY ADDITIONAL ROUTINES ATTACHED AT AV®XIT (SEE BELOW). 

R0012 PROGRAMS INITIATING SERVICER ARE REQUIRED TO MAKE A WAITLIST CALL FOR PREREAD ( OR, IF LIFTOFF, FOR BIBIBIAS) 

R0014 At 2 SECONDS BEFORE THE FIRST AVERA® G UPDATE IN ORDER TO INITIALIZE THE SEOLeNCE, WHICH WILL RECUR EVERY 

RO016 2 SECONDS FROM THAT TIKE CN AS LCNG AS AVEGFLAG REMAINS SET. 

R001T THE USE ® ERASABLE AVGEXIT ALLOWS VARIOUS ROUTINES TO BE PERFORMED AS PART CP THE NORMAL CYCLE ( SEE 
R0019 EXPLANATION OP AV®XIT BELOW) . 

R0020 DESCRIPTIONS ® INDIVIDUAL ROUTINES FOLLOW. 

R0021 PREREAD 

PREVIOUSLY EXTRAPOLATED VALUES COPIED PROW FNl , VNl, AND PlPTIMEj INTO RN, VN, AND PIPTIME. 

LASTBIAS J® SCHEDULED. 

pips read and cleared via pipasr subroutine. 

AVERA® G FLAG SET CN. 

DRIFT FLAG SET OPP. 

V3T FLAG SET CN. 

INITIALIZATION CP 1) THRUST MONITOR (DVMCN) - DvCNTR SET TO ONE. 

2) TOTAL ACClMJLATED DELV VALUE (DVTOML) - SET TO ZERO. 

3) AXIS VECTOR (AXIS) - SET TO (.5,0,0). 

NOCM.rzE J® SCHEDULED. 

READACCS TASK CALLED IN 2 S0CCNDS. 

NOR-t.IzE 

R003T ODT/2 INITIALIZED VIA CALOGRAV SUBROUTINE. 

R0038 READACCS 

IF CNMCN FLAG SET OUlKREAD ROUTINE IS PERFORMED BEFORE PIPASR ZEROS THE PIPA REGISTERS, AND THE 1/2 SEC 
ONMCNITOR LOOP IS INITIATED TO PRO/I® DOWNLINK INFORMATION DURING ENTRY. 

PIPS READ AND CLEARED BY PIPASR SUBROUTINE. 

IF CM/DSTBY IS CN, ENTRY VARIABLES INITIALIZED AND SETJTAG TASK CALLED. 


R0039 

R0041 

R0043 

R0044 




R0022 

R0024 

R0025 

R0026 

R002T 

B0028 

R0029 

R0031 

B0033 

R0034 

B0035 

R0036 
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•0047 

•0048 

■0050 

•0051 

■0052 

•OOS3 

■0055 

■005T 

■0058 

■0060 

■0061 

■0062 

■0063 

■0064 

■0066 

■0067 

■0068 

■0069 

■0070 

>0071 

>0072 

■0074 

■00T5 

■0076 

■0078 

■0079 

■0081 

■0083 

■0084 

■0085 

■0087 

■0088 

■0089 

>0090 


oewiTOR 


IP A VERA CEO PLAO CN READACCs CALLED TO RECYCLE IN 2 SECONDS. 

IP AVERACEO PLAO CFP AVERAQB O EXIT (AvOBxIT) SET TO 2 CADR AVGSBND POR PINAL PASS 

SERVICER J03 SCHEDULE). 

TEST CONNECTOR OUIBIT TURNED CN. 

ASEOUENCE OP THREE PASSES THROWN OUICKREAD FOLLOWING A CALL TO READACCS WITH CNMCNFLG SBT AT 1/2 
SEC INTERVALS. INTERVALS ARE COUNTED OUT BY PIPOIR, INITIALISED AT 3 BY READACCS 1 2 

OOIKREAD 

X * Y>ZPIPaF - REWS “ X.V.ZPIPBUP INTO X.Y.ZOLDBUP. VALUES ARE SENT TO 

SBRVICER 

DBLV VALUES ONECkED To detect RUNAWAY pip - 
IP BAD PIP 1 ) ALARM sent. 

2 ) CCMPOISATICN, DVTOIAL ACOlMXATICN, AND DvMCN BYPASSED CONTROL 
1RANSFERR03 TO AVERAGE O. 

PIPS COMPENSATED VIA 1 /PIPA subroutine, 
dvtotal INCREMENTED by absolute VALUE OP DELV. 

THRUST MONITOR ODvMCN) PERFORMED UNLESS IDLE PLAO IS CN 

CONTROL TRANSFERRED TO AVERAGE O 

DVMCN 

•miWSIOIJTi VALUIR (PLACED IN DVTHRUSH BY USER) CHECKED AGAINST ABsaunE VALUE OP DELV TO CHECK 
THRU ST LEVEL . 

IP THRUST 1 ) ULLAGE OPF ROUTINE PERFORMED. 

2 ) STEERING FLAG TURNED CN AT FIRST DETECTION OF THRUST 

3) CONTROL TRANSFERRED TO AVERAGE G 

IP NO THRUST 1 ) ON FIRST PASS THRCUCH MONITOR, CONTROL TRANSFERRED TO AVERAGE G 

2> CN SUSEOJFNT PASSES, CONTROL TRANSFERRED TO ENGINE FAIL ROUTINE IF THRUST 
HAS FAILED FOR 3 CONSECUTIVE PASSES 

ENGINE FAIL 

INGFA ILl TAS< CALLED IN 2.5 SECONDS. THIS WILL RETURN CONTROL TO TIG -5 SO THAT THE IGNITION 
SEOUENCB MAY BE REPEATED. 

ENGINOF 3 PERFORMED. 

. DAP SET UP FOR HCS 

average g 


# 



I 
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R0091 HNl, VNl, ODTi/2 CALCULATE) VIA CALCrvG ROUTINE BY UPDATING IN, VN WITH DELV AND AN AVERAGED VALUE 

R0093 OP ODT/2. 

H0094 BNl, VNl, CBTl/2, PIPTINSl COPIED INTO IN, VN, ODT/2, PIPTEG3 FOR RESTART PROTECTION. 

R0098 OCNTROL TRANSFERRED TO ADDRESS SPECIFIED BY USER (OR BY RSADAOCS POR LAST PASS) IN AVGBXIT. 

R0098 ' LAST PASS (AVGEND) 1) PREE PALL GYRO COMPENSATION SET UP. 

R0099 2> DRIPT FLAG TURNED (N. 

B0100 3) STATE VECTOR TRANSFERRED VIA AVETCMID ROUTINE. 

R0102 4> OWCNITOR FLAG R2®T. 

R0103 5) V37 FLAG RESET. 

R0104 g) TEST CCNNECTOR OUIBIT RESET. 

BO 105 7) CONTROL TRANSFERRED TO CANV37 TO CCNTINLE MM CHANGE ROUTINE (ROO) 

R0108 CALLING SEOENCE 


B0109 PREREAD ENTERED DIRECTLY FROM TIO-30 VIA POST JIMP. 

ROt 10 READACCs CALLED AS WAITLIST TASK. 

B0112 SUBROUTINES CALLED 




R0113 

ROUS 

R0118 

ROUT 

R01I8 

R0120 

R0121 

R0123 

R0125 

R0127 

R0129 

R0131 

R0133 

R0135 

R0138 

R013T 

R013S 

R0139 

R0140 


UTILITY ROUTINES - PHASING PLAGUP FIAGDOWN NCVAC FINDvAC WAITLIST ALAHM NEWPHASE 2 PHSCHNG 

OIHER - PIPASR 1/PIPA CALCGRAV CALCRVG AVETCMID 
NORMAL EXIT MODES 

ENDOPJOB TASKOVER CANV37 

AvGExIT - THIS IS A DOUBLE PRECISION ERASABLE LOCATION BY WHICH CONTROL IS TRANSFERRED AT THE END 
OP EACH CYCLE CP AVERAGE G. 

THE 2CADR OP A ROUTINE TO BE PERFORMED AT THAT TIME CE.G., STEERING EQUATIONS TO BE PERFORMED 
AT 2 SECOND INTERVALS) MAY BE SET BY THE USER INTO AvGExIT. 

ALL SCH ROUTINES SHOULD RETURN TO SERVExIT, WHICH IS THE NORMAL EXIT FROM AVERAGE G. 

SERVE* IT - DOES A PHASE CHANCE FOR RESTART PROTECTION AND GOES TO ENDCFJCB . 

THE 2 CADR OF SERVEXIT IS SET INTO AvGExIT BY THE USER IF NO OIHER ROUTINE (SEE ABOVE). 

AvOFND _ LAST PASS CP AVERAGE G EXITS HERE, BYPASSING SPECIAL ROUTINE (SEE ABOVE UNDER READACCS) . 

FINAL EXIT IS TO CANV37 . P AVEHAGE G) . 

OUTPUT 

DVTOIAL( 2 ) PIPTIME(2> XPIPBUP( 2 > YPIPBuF( 2) ZPIPBUF( 2 ) 

HN(6> REFERENCE COORD. SCALED AT 2(+29>M/CS 

VN(g) REFERENCE COORD. SCALED AT 2(+7)M/CS 

GOT/ 2(6) REFERENCE COORD. SCALED AT zUTWCS 

DELV(6> STABLE EENB. COORD. SCALED AT 2( +14)*5 -85*10<-4>M/CS (KPIPl USED TO GET DV/2 AT 2(<-7)) 
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R0142 D«.VIIEP<6> RBFERBICB COORD. SCALED AT 2<VT)M/CS 


R0143 INITIALIZATION 


OMONITOR FLAG SET BY ENTRY TO 9ICW PIP0UP VALUES REQUIRED. 

IDLE FLAG CN IP DVMCN TO BE BYPASSED. 

DVTHRUSI SET TO APPROPRIATE VALUE FOR DVMCN . 

AvQEXIT SET TO 2CADR OP ROUTINE, IP ANY, TO BE PERFORMED AFTER EACH CYCLE OP AVERAGE O. IF NO ROUTINE 
TO BE DONE, AVCEXIT SET TO SERVEXIT. 

VALUES NEEDED 

REPSM4AT 

UNIT* - FULL UNIT VECTOR, IN REFERENCE COORD., OP EARTH S ROMTICNAL VECTOR 

RNl, VNl, PIPTIMBi - IN REFERENCE COORD., CONSISTENT WITH TIEB OF EXECUTION OP PREREAD 


OetTRALS 

OTHER 


REP i 


A, L, O 

INTERNAL - DvCNTR(l) PIPAGE(i) PIpClR(i> AvGExIT< 2) 

EXTERNAL - ITEMPiID ITEMP2(l> RUPTOEGiCi) TE>tX(l> TEMY(l) TKMZ(l> 

USEFUL DEBRIS 

RNl<e) VNlIfi ) GDTl/2 PIPTIME1C2) 

THESE LOCATIONS USED AS BUFFER STORAGE FOR NEWLY CALCULATED VALUES OF KN, VN, GDT/2, 

and piptime during performance op servicer routines. 

UNITS - HALF UNIT VECTOR OP RN, REFERENCE COORD. 

HMAG SCALED AT 2(+58> IN 38D. 

HMAGSO SCALED AT 2(+58> IN 34D. 

(re/rmagiso in 32D. 

27,2633 BANK 27 

37,2000 ffiTLOC SERVICES 

37,2804 BANK 




REF 13 LAST 759 87,143! 


EBANK= DVCNTR 


REP 

1 






COUNT 

37/SERV 


REP 

1 



37,2604 

3 4766 

1 

PREREAD CAP 

PRIO21 

CALUBR MUST PROTECT PREREAD 

REP 

26 

LAST 

752 

37,2605 

0 5027 

1 

TC 

NOVAC 


REP 

6 

LAST 

299 

B3,1460 



EBANK= 

NBOX 


REP 

1 



37,2606 

03636 

1 

2CADR 

LASTBIAS 

DO LAST GYRO COMPENSATION IN 

REP 

1 



37,2607 

14063 

1 





A01682 

A01883 

A01884 

A01885 


CALL-TO AND IASTBTAS ITSELF ARE NOT 

PROTECTED. REREADAC SETS 1/PIPADT 
TO 2.0 SECS IN CASE LASTBIAS LOST. 
(REDUNDANT IF IASTBIAS IS AOK) 
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0188 

ter 

2 

LAST 

527 

37,2610 

0 2825 1 

RSDQ5.31 TC 

PREREADl 


0190 

ter 

4 

LAST 

225 

37,2611 

3 7667 1 

CAP 

PRI032 


0191 

ter 

28 

LAST 

758 

37,2612 

0 5042 1 

TC 

PINDVAC 

SET UP NOEMLIZE JOB REQUIRED PRIOR TO 

0192 

ter 

14 

LAST 

776 

E7.1431 


EBANK- 

DVCNIH 

first average g pass 

0193 

ter 

3 

LAST 

530 

37,26 13 

03141 0 

2CADR 

NORMLIZS 


0193 





37,2614 

78067 1 




0194 

■BP 

3 

LAST 

842 

37,2615 

3 4735 1 

CAP 

2SECS 


0195 

IBP 

37 

LAST 

758 

37,2616 

0 5140 1 

TC 

WAITLIST 


0190 

ter 

19 

LAST 

758 

86,1661 


erank= 

AOG 


019T 

ter 

2 

LAST 

530 

37,2617 

02847 0 

2CADR 

READACCS 


01 9T 





37,2620 

T6066 0 




0198 

ter 

33 

LAST 

583 

37,2821 

4 4711 0 

cs 

TWO 


0199 

IBP 

7 

LAST 

854 

37,2622 

0 4114 1 

1C 

NEWPHASE 


0200 





37,26 23 

00005 1 

OCT 

5 


0201 

IBP 

41 

LAST 

748 

37,2624 

1 5213 0 

TCP 

TASCCVER 


0202 





37,2625 

0 0006 1 

PRBREADi EXTEND 



0203 

REP 

17 

LAST 

217 

37,2626 

22 070 0 

<KCH 

RUPTREGi 


0204 

ter 

1 



37,2827 

0 3157 1 

TC 

PIPASR 

CLEAR ♦ READ PIPS LAST TIME IN FREE FALL 

02042 

IBP 

94 

LAST 

749 

37,2630 

3 4712 1 

CAP 

CNE 

SET UP PIPAGE FOR REREADAC IN CASE A 

02043 

IBP 

2 

LAST 

77 

37,2631 

55-230 0 

TS 

PIPAGE 

RESTART OCCURS BEFORE READACCS 

0205 

IBP 

19 

LAST 

689 

37,2832 

4 0075 1 

CS 

FLAOTODl 

S?T AVEG FLAG 

0208 

ter 

58 

LAST 

724 

37,2633 

7 4712 0 

MASC 

BITl 


0207 

ter 

20 

LAST 

777 

37,2634 

26 075 1 

ADS 

FLAGWHDl 


0208 

ter 

18 

LAST 

677 

37,2835 

3 4672 0 

CA 

POS4AX 


0209 

ter 

14 

LAST 

657 

37,2636 

7 0076 1 

MASK 

Fi Aaron 2 


0210 

ter 

15 

LAST 

777 

37,2637 

54 076 1 

TS 

FLAGWRD 2 

KNOCK DOWN DRIFT FLAG 

0211 

ter 

17 

LAST 

688 

37,2640 

4 0103 1 

CS 

FLAGWHD7 

SET V37 FI AG 

0212 

HEP 

35 

LAST 

700 

37,2641 

7 4705 0 

MASK 

BITS 


0213 

PEP 

18 

LAST 

777 

37,26 42 

26 103 1 

ADS 

FLAOW®7 


0218 

IBP 

149 

LAST 

736 

37,2643 

3 4714 1 

CAP 

ZERO 


0224 

IBP 

5 

LAST 

841 

37,2644 

55-425 1 

TS 

dvtotal 

CLEAR DVTOTAL 

0225 

REP 

8 

LAST 

777 

37 , 2645 

55-426 1 

TS 

DVTOTAL +1 


0228 

HBP 

18 

LAST 

777 

37,2846 

0 0070 0 

TC 

RJPTOBGi 




! 
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Bl S3 


P0227 

0229 

REP 

20 

LAST 

777 

0242 

REF 

2 

LAST 

777 

0243 

REF 

17 

LAST 

724 

0244 

REP 

72 

LAST 

737 

0245 





0246 

REF 

3 

LAST 

528 

024T 

REP 

95 

LAST 

777 

0248 

REP 

3 

LAST 

777 

0249 

REP 

34 

LAST 

777 

0250 

REP 

2 

LAST 

77 

0251 

REP 

3 

LAST 

754 

0252 

REP 

33 

LAST 

695 

0253 

REF 

180 

LAST 

737 

0254 

REF 

2 

LAST 

212 

0255 

REF 

6 

LAST 

642 

0256 

REP 

2 

LAST 

659 

0260 





0261 

REF 

21 

LAST 

778 

0262 

REP 

2 

LAST 

109 

0263 

REP 

2 

LAST 

109 

0264 

REP 

2 

LAST 

109 

0265 





0266 

REP 

2 

LAST 

109 

0267 

REP 

2 

LAST 

109 

0268 

REP 

2 

LAST 

109 

0269 

REF 

2 

LAST 

109 

0270 

REF 

4 

LAST 

778 

0271 

REP 

26 

LAST 

662 

0272 





0273 

REP 

1 



0274 

REP 

1 



0275 

REP 

38 

LAST 

777 

0276 

REP 

2 

LAST 

114 

0277 

REP 

1 



0277 

REP 

1 



A0278 





0279 

REP 

9 

LAST 

431 

0280 

REP 

3 

LAST 

778 

0281 

REP 

2 

LAST 

114 

0282 

REP 

5 

LAST 

430 

0283 

REF 

2 

LAST 

114 

0284 

REP 

2 

I A ST 

114 


RBAQACCS 


E6,1661 


E8ANC: 

= AQG 

37,2847 

0 3157 1 

READACCS 1C 

PIPASR 

37,2650 

3 4715 0 

PIPSXNE CAP 

FIVE 

37,2651 

54 001 1 

TS 

L 

37,2652 

4 0000 0 

CCM 


37,2653 

52 763 1 

DXCH 

-PHASES 

37,2654 

3 4712 1 

RS3Q5.5 CAP 

are 

37,2655 

55*230 0 

TS 

PIPAGE 

37,2658 

3 4711 1 

CA 

WO 

37,2657 

55*227 0 

TS 

PIPCTR 

37,2660 

4 0102 0 

CS 

CM/FLAGS 

37,2661 

7 4711 0 

MASK 

BIT2 

37,266 2 

10 000 0 

CCS 

A 

37,2883 

0 2736 1 

1C 

CHEKA vEG 

37,2664 

4 1246 1 

CS 

PIPTIMBi 

37,2665 

55*065 1 

TS 

WASE6 

37,2666 

0 0006 1 

EXTEND 

37,2667 

3 1662 1 

DCA 

A 00 

37,2670 

53*670 0 

DXCH 

AOG/PIP 

37,2671 

3 1663 0 

CA 

At * 5 

37,267 2 

57*671 0 

XCH 

AMO/PIP 

37,2673 

0 0008 1 

EXTEND 

37,2674 

3 1665 0 

DCA 

ROLL/180 

37,2675 

53*673 0 

PXCH 

ROLL/PIP 

37,2676 

3 1666 0 

CA 

BEW/ibo 

37,2677 

57*674 0 

XCH 

BETA /PIP 

37,2700 

3 0102 1 

CA 

CM/FLAGS 

37,2701 

7 4677 1 

wac 

BIT12 

37,2702 

0 0006 1 

EXT®(D 


37,2703 

1 2721 0 

BZF 

NOSAVPIP 

37,2704 

3 2771 1 

CA 

0.5SEC 

37,2705 

0 5140 1 

TC 

WAITLIST 

86,1533 


EBANK= 

XPIPBUF 

37,2706 

02772 1 

2CADR 

OUIKRE4D 

37,2707 

76060 0 



37,2710 

3 1162 0 

CA 

delvx 

37,2711 

57*533 0 

XCH 

XPIPBUF 

37,2712 

55*536 1 

TS 

xacBuF 

37,2713 

3 1164 0 

CA 

DELVY 

37,2714 

57*534 1 

XCH 

YPIPBUF 

37,2715 

55*537 0 

TS 

YOU3BUP 


SHOW PIPS have been read 


SET PIPCTR FOR CNMINTOR 
AFTER ABOVE PHASCHNG 


CM/DSTOY 


FOR RESTARTS 
CONTINUE FOR B4TRY DAP 



OI/IMPARM 93D BIT12 

IXJRINO ENTRY, WHEN RCS DAP IS INACTIVE, 
SAVE PIPAS EACH 0.5 SEC FOR TM. 


NO NEED TO RESTART PROTECT THIS. 

SAVE PIPAS AS READ (BUT NOT COMPENSATED) 
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•285 

REP 

* 

LAST 

430 

37,2716 

3 nee 

1 

CA 

DELVZ 


0286 

REP 

2 

LAST 

114 

37,2717 

57*535 

0 

XCH 

ZPIP9UP 


028T 

REP 

1 



37 ,2720 

55*540 

0 

TS 

ZOLDBUF 


0288 

REP 

18 

LAST 

778 

37,2721 

3 4715 

0 

NOSA VP IP CA 

FIVE 


0289 

REF 

* 

LAST 

213 

37,2722 

55*725 

1 

TS 

CM/OWOT 


0290 

REP 

1 



37,27 23 

3 3136 

0 

CA 

JTAGTIf* 

ACTIVATE CM/HCS AFTER PI PUP TO GO 

A0291 










IN JTAOTINE +5 Cs. 

0292 

REP 

39 

LAST 

778 

37,272* 

0 5140 

1 

1C 

WAITLIST 


0293 

REP 

22 

LAST 

778 

E6.1661 



EBANKr 

AOG 


029* 

REP 

2 

LAST 

206 

37,2725 

03227 

0 

2CADR 

SETJTAG 


0294 





37,2726 

32066 

0 




0295 

REP 

28 

LAST 

75* 

37,2727 

4 6214 

1 

CS 

THREE 

1.3SPOT FOR SETJTAG 

0296 

REP 

8 

LAST 

777 

37,2730 

0 4114 

1 

1C 

NEWPHASE 


029T 





37,2731 

00001 

0 

OCT 

1 


0298 

REF 

4 

LAST 

6*8 

37,2732 

3 4362 

1 

CAP 

OCT3T 


0299 

REP 

73 

LAST 

778 

37,2733 

54 001 

1 

TS 

L 


0300 





37,273* 

4 0000 

0 

CCM 



0301 

REF 

* 

LAST 

778 

37,2735 

52 763 

1 

dxch 

-PHASES 


0302 

REP 

21 

LAST 

777 

37,2736 

4 0075 

1 

chekaveg CS 

FIAQWHDl 


0303 

REF 

59 

LAST 

777 

37,2737 

7 4712 

0 

mask 

BITl 


0304 

REP 

181 

LAST 

778 

37,27*0 

10 000 

0 

CCS 

A 

IF AVEG FLAG DOWN SET FINAL EXIT AVEG 

0305 

REP 

1 



37,27*1 

0 2761 

0 

1C 

AVEGCUT 


0306 

REF 

4 

LAST 

777 

37,27*2 

3 4735 

1 

CAP 

2SECS 


030T 

REP 

*0 

LAST 

779 

37,27*3 

0 5140 

1 

1C 

WAITLIST 


0308 

REP 

23 

LAST 

779 

E6.1661 



EHANKr 

AOG 


0309 

REP 

3 

LAST 

777 

37,27*4 

02647 

0 

2CADR 

READACCS 


0309 





37,2745 

76066 

0 




0310 

REP 

7 

LAST 

865 

37,27*6 

3 4675 

1 

makeserv cap 

PRIO20 

ESWBLISI SERVICER ROUTINE 

0311 

REF 

29 

LAST 

777 

37,27*7 

0 5042 

1 

1C 

PINDVAC 


0312 

REP 

15 

LAST 

777 

E7,l*31 



EBANK= 

DVCNTR 


0313 

REF 

2 

LAST 

211 

37,2750 

03007 

0 

2CADR 

SERVICER 


0313 





37,2751 

76067 

1 




031* 

REP 

8 

LAST 

*29 

37,2752 

4 4710 

1 

CS 

FOUR 

RESTART SERVICER AND READACCS 

0315 

REF 

9 

LAST 

779 

37,2753 

0 4114 

1 

1C 

NEWPHASE 


0316 





37,275* 

00005 

1 

OCT 

5 


0317 

REF 

27 

LAST 

721 

37,2755 

3 4702 

0 

CAP 

BIT9 


0318 





37,2756 

0 0008 

1 

EXTEND 



0319 

REP 

25 

LAST 

657 

37,2757 

05 011 

1 

WOR 

DSAUWCUT 

TURN TEST CONNECTOR OUTBIT CN 

0320 

REF 

*2 

LAST 

777 

37,2760 

1 5213 

0 

1CF 

TASKCVBR 

FM3 PREVIOUS READACCS WA ITL 1ST TASK 
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0321 

0322 

0323 

0324 

REP 

REP 

REP 

1 

2 

1 

LAST 

529 

37.2701 

37.2702 

37.2783 

37.2784 

0 0008 1 
3 2766 1 
53*223 1 

1 2746 1 

aveocut 

BXTOD 

OCA AvanCAD 
PxCH AvGEXIT 
TCP HAKESBHY 

0325 

0326 
0328 

REP 

REP 

REP 

16 

1 

1 

LAST 

TT9 

E7.1431 

37.2765 

37.2766 

03070 0 
78067 1 

AVOUTCAD 

EBANKr DvCNTR 
2CADR Avaa® 
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P032T ROUTINE NAME* CNMNITOR 

H0328 MOD 04 BY BAIRNSFATH2K 33 APR igeg R3X) QWITOR TO SAVE PIPS EACH 0.5 SEC POR TM, ENTRY. 

RO330 MOD 03 BY PI SEER DEISKSSa 135T 

R0331 MOD 02 BY RYE SEPT 198T 

R0332 MOD 01 BY KOS4ALA 23 PAR 1CST 

R0333 MOD 00 BY K0S4ALA 27 FEB 1SST 

*0334 FUNCTIONAL DESCRIPTION 

R0335 B« PURPOSE OP CKNCNITOR IS TO PROVIDE 1/2 SEC. READING OP PIPAS FOR DOWNLIST IXJRING ENTRY. 

RO33T X,Y,2PIP9UP CONTAIN PRESENT VALUES X.Y.ZOLDBUF C OITA IN VALUES FROM PREVIOUS READING. 

R0339 CALLING SEOUENCE 

R0340 - CALL AS WAITLIST TASC. TElWINAlES ITSELF IN W9GCVER 

R0341 INITIALISATION 

R0342 PIPCTR = 2 IFOR W = 0.5 SEC) 

R0343 X.Y.ZPIPBUF ®T TO PREVIOUS PIPAX,Y,Z 

R0344 OUTPUT 

R0345 X.Y.ZPIPBUF, X.r.ZDLDBUP 

R0346 DEBRIS 

R0347 X.Y.ZPIPBUF CCNEIL* LAST PIPAX,Y,Z VALUES 

R0348 X.Y.ZCUJBW* CCNTrt IN LA ST-BUT-CNE PIPAX.Y.Z VAUJES 

R0349 RJPTRBGl 

R0350 PIPCTR 


0351 

REP 

3 

LAST 

770 

37,2167 

55*227 

0 

OOMITOR TS 

PIPCTR 


0352 

REP 

12 

LAST 

607 

37.27T0 

0 5156 

0 

TC 

PIXDELAY 

wait 

0353 





37,2771 

00062 

0 

0 . 5 SEC DEC 

50 


0354 

REP 

35 

LAST 

778 

37,2772 

3 4711 

1 

CUlKREAD caf 

TWO 


0355 

REP 

19 

LAST 

777 

37,2773 

54 070 

1 

TS 

KJPTREGi 


0358 

REP 

102 

LAST 

779 

37,2774 

50 000 

1 

INDEX 

A 


0357 

REP 

8 

LAST 

430 

37,2775 

3 0037 

0 

CA 

PI PAX 

SAVE ACTUAL PIPAS FOR TM 

0358 

REP 

20 

LAST 

781 

37,2776 

50 070 

0 

INDEX 

KJPTREGi 


0359 

REP 

4 

LAST 

778 

37,2777 

57*533 

0 

XCH 

XPIPBUF 

UPDATE X.Y.ZPIPBUF 

0360 

REF 

21 

LAST 

781 

37,3300 

50 070 

0 

INDEX 

RJPTRBGl 


0361 

REP 

3 

LAST 

778 

37,3001 

55*536 

1 

TS 

XCLDBUP 

AND X.Y.ZOLDBUF 

0382 

REP 

22 

LAST 

781 

37,3002 

10 070 

1 

CHKCTR CCS 

RUPTREGl 


0363 

REP 

2 

LAST 

778 

37,3003 

1 277 3 

1 

TCP 

QUIKREAD +1 

LOOP AGA IN 

0364 

REP 

4 

LAST 

781 

37,3004 

11*227 

0 

CCS 

PIPCTR 


0365 

REP 

1 



37,3005 

1 2767 

1 

TCP 

CNMNITOR 


0366 

REP 

43 

LAST 

779 

37,3006 

0 5213 

1 

TC 

taskover 
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F036T 

*036® 

*** 






* 

SERVICE 



03TO 

HEP 

IT 

LAST 

T80 

B7.1431 




BBA>*c= DvCntr 

0371 

REP 

36 

LAST 

781 

37,3007 

3 4711 

1 

servicer cap 

TWO 

03T2 





37,3010 

0 0004 

0 


INHINT 

0373 

REP 

23 

LAST 

781 

37,3011 

54 070 

1 

PIPCHECk ts 

ajPTREGi 

0374 





37,3012 

6 0000 

1 


DOBLE 

0375 

RBP 

183 

LAST 

781 

37,3013 

50 000 

1 


INDEX 

A 

0376 

REP 

10 

LAST 

778 

37,3014 

11*162 

1 


CCS 

DELVX 

0377 





37 , 3015 

0 3017 

1 


tc 

♦2 

0378 


1 



37,3010 

0 3025 

0 


tc 

PIPLOOP 

0379 

RBP 

1 



37,3017 

6 3135 

0 


AD 

-MAxDELV 

0380 





37,3020 

0 0006 

1 


EXTBTO 


0381 

REP 

2 

LAST 

782 

37,3021 

6 3025 

0 


BZMP 

PIPLOOP 

0382 

RHP 

32 

LAST 

759 

37,3022 

0 5537 

0 


TC 

ALAfW 

0383 





37,3023 

00205 

0 


OCT 

00205 

0384 

RBP 

i 



37,3024 

0 3046 

0 


TC 

AVERAGES 

0385 

RBP 

24 

LAST 

782 

37,3025 

10 070 

1 

PIPLOOP 

CCS 

RJPTREOi 

0386 

REF 

1 



37,3026 

1 3011 

0 


TCP 

PIPCHECk 

038T 

RBP 

80 

LAST 

758 

37,3027 

0 5301 

0 


TC 

PKASCHNO 

0388 





37,3030 

16035 

0 


OCT 

16035 

0389 





37,3031 

20000 

0 


OCT 

20000 

0390 

RBP 

18 

LAST 

782 

£7,1431 




EBANK= 

dvcntr 

0391 

RBP 

1 



37,3032 

03036 

1 


2CADR 

•dvtoiup 

0391 

REP 

1 



37,3033 

76067 

1 




0392 

REF 

232 

LAST 

759 

37,3034 

0 4555 

0 


TC 

BANkCAU. 

0393 

REP 

2 

LAST 

431 

37,3035 

15262 

0 


CADR 

1/PIPA 

0394 

HEP 

200 

LAST 

758 

37,3036 

0 6006 

1 

dvtotup 

TC 

INTPRET 

0395 





37,3037 

51575 

1 


VLO \D 

ABVAL 

0396 

REF 

8 

LAST 

174 

37,3040 

01163 

1 



DELV 

0397 





37,3041 

TT405 

0 


DMP 

EXIT 

0398 

REF 

1 



37,3042 

37354 

1 



KPIPl 

0399 





37,3043 

0 0006 

1 


extend 


0400 

379 

LAST 

764 

37,3044 

3 0155 

0 


dca 

MPAC 

0401 

RFP 

T 

LAST 

777 

37 , 3045 

21*426 

1 


DAS 

IVTOML 

0402 

RH» 

81 

LAST 

782 

37,3046 

0 5301 

0 

AVERAGEG TC 

PHASCHNG 

0403 





37,3047 

10035 

0 


OCT 

10035 

0404 

REP 201 

LAST 

782 

37,3050 

0 6006 

1 


TC 

INTPRET 

0405 





37,3051 

77624 

1 


CAI.L 



DO PIPA-SATURATICN test before 
ccmpensaticn. 

SAHJRAtED-PIPA AIAFM 4+4CHANGE LATER 


restart reheadac + SERVICER 

PIPA ccmpensaticn call 

get abs value op delv 
SCALE AT 2<+T> 

ACCUMULATE DVTOTAL 
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0406 

RBP 

1 



37,3052 

77323 

0 


CALCRVG 


040T 





37,3053 

77776 

1 

EXIT 



0408 

US' 

82 

LAST 

782 

37,3054 

0 5301 

0 

1C 

PHASCHMG 


0409 





37,3055 

10035 

0 

OCT 

10035 


0410 

REP 

3 

LAST 

536 

37,3056 

3 4113 

0 

CAP 

CCT31 

COPY RN1,VN1,GOTi02,OOBLi/2,PIPTIMEi 

0411 

REP 

11 

LAST 

648 

37 , 3057 

0 5475 

1 

1C 

OENTRAN 

INTO RN ,VN .CDT/12 ,GOBL/2 .PIPTIMB 

0412 

REP 

< 

LAST 

528 

37,3060 

01231 

0 

ADRES 

mi 


0413 

REP 

14 

LAST 

758 

37,3081 

01170 

0 

ADRES 

m 


04131 





37,3082 

0 0003 

1 

RELINT 


OBNTHAN DOES AN INHINT 

0414 

REP 

83 

LAST 

783 

37,3063 

0 5301 

0 

1C 

PHASCHNQ 


0415 





37,3064 

10035 

0 

CCT 

10035 


0416 





37,3065 

0 0006 

1 

EXTEND 



041T 

REP 

3 

LAST 

780 

37,3066 

3 1223 

0 

DCA 

AVGEXIT 


0418 

REP 

15 

LAST 

474 

37,3067 

52 006 

0 

OXCH 

Z 

AvERAGEG EXIT 

0419 

REP 

12 

LAST 

758 

37,3070 

3 1205 

1 AvCEND 

CA 

PIPTIME +1 

pinal average g exit 

0420 

REP 

1 



37,3071 

55*074 

1 

TS 

OLDBTl 

set up free fall gyro compensation 

0421 

REP 

47 

LAST 

754 

37,3072 

0 5435 

0 

1C 

UPPLAG 

SET DRIPIELG 

0422 

REP 

3 

LAST 

722 

37,3073 

00036 

1 

ADRES 

DRIPIELG 

BIT 15 HAG 2 

0425 

REP 

26 

LAST 

758 

37,3074 

0 5261 

1 

TC 

2PHSCHNG 


0426 





37,3075 

00005 

1 

OCT 

5 

GROUP 5 OFF 

0427 





37,3078 

05022 

1 

OCT 

05022 

GROUP 2 CN FOR AVETOMID 

0428 





37,3077 

20000 

0 

CCT 

20000 


0429 

REP 

202 

LAST 

782 

37,3100 

0 6006 

1 

TC 

INTPRET 


0430 





37,3101 

77624 

1 

CALL 



0431 

REP 

1 



37,3102 

27472 

0 


avetcmid 

CONVERT state vector to reference sca 

0432 





37,3103 

77776 

1 

EXIT 



043201 

REP 

150 

LAST 

777 

37,3104 

3 4714 

1 

CAP 

zero 

zero mark counters. 

043202 

REP 

9 

LAST 

574 

37,3105 

55*125 

1 

TS 

VHPCNT 


043203 

REP 

6 

LAST 

574 

37,3108 

55*126 

1 

TS 

TRKMKCNT 


04321 

REP 

233 

LAST 

782 

37,3107 

0 4555 

0 

TC 

bankcall 


04322 

REP 

1 



37,3110 

17112 

0 

CADR 

PIPFREB 


04323 

REP 

28 

LAST 

779 

37,3111 

4 4702 

1 

CS 

BIT9 


043235 

REP 

16 

LAST 

575 

37,3112 

55*734 

1 

TS 

MRCBUP2 

invalidate mark buffer 

04324 





37,3113 

0 0006 

1 

EXTEND 



04325 

REP 

26 

LAST 

779 

37,3114 

03 011 

1 

WAND 

DSALMCXJT 


043255 

REP 

50 

LAST 

752 

37,3115 

0 5447 

0 

TC 

DCWNFLAG 


043256 

REP 

1 



37,3116 

00147 

0 

ADRES 

CM/DSTBY 


04326 

REP 

51 

LAST 

783 

37,3117 

0 5447 

0 

TC 

DCWNFLAG 


04327 

REP 

3 

LAST 

635 

37,3120 

00162 

1 

ADRES 

V3TFL4G 





L 
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0433 

0434 

0435 

0436 

REF 

REF 

42 

10 

LAST 

LAST 

700 

253 

37.3121 

37.3122 

37.3123 

37.3124 

043T 

0438 

0439 

REF 

27 

LAST 

783 

37,3125 

37,3128 

37,3127 

0445 

0448 

REF 

REP 

46 

2 

LAST 

LAST 

758 

195 

37.3130 

37.3131 

0447 

0448 

REP 

84 

LAST 

783 

37.3132 

37.3133 

0449 

REF 

99 

LAST 

758 

37,3134 

0450 

A0451 

A0452 

REP 

4 

LAST 

379 

47 IT 

0453 

0454 





37.3135 

37.3136 

0455 

0458 

A0457 

A0458 





37,3137 

37,3140 


3 4704 

0 

CAP 

bitt 

7 0074 

0 

MASK 

FlAOfflDo 

0 0008 

1 

EXTB® 


1 3130 

1 

BzP 

♦4 

0 5261 

1 

TC 

2PHSCHNG 

00111 

0 

OCT 

111 

00132 

1 

OCT 

132 

0 4574 

0 

TC 

POST JUMP 

10123 

0 

CADR 

CANV3T 

0 5301 

0 

SERVEXIT TC 

FHASCHNG 

00035 

1 

OCT 

00035 

1 5112 

1 

TCP 

aroopjoB 



dvthhush equals 

H£VEN 


63401 

1 

-MAxDBLV DEC 

-6 398 

00170 

1 

jtvagtime DEC 

120 

00372 

1 

2.5SEC DEC 

250 

00044 

1 

NDOTFAIL DEC 

144.0 f 


USR.3 PACE NO. 12 Br S3 
RESTORE GROUP 1 ♦ 2 IP P20 IS RUNNING. 


1.11SPOT 

2.13SPOT 


A, 5.3 = REREADAC (CNLY) 


15 PERCENT OP 2 SEC PIPA ACCUMULATION, 

PCR 503-PIW, CSM/LPM DBLV SC.AT 

5-85 CM/SBC. 

3200 PPS FOR 2 SEC CCS TAKES 1 
= 1 SEC ♦ T CDU, T CDU s .1 SEC 


5 ffiC HASS LOSS AT 28.8 KO/SEC 
SKXXJ1 BE 2-4 SECS FOR NO START 
8-8 SECS FOR FAILURE 
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,g NU«4,I7F PERFORMS THE INITIALIZATION REQUIRED PRIOR TO THE FIRST ENTRY TO AVERAGED, AND SCALES RN SO THAT IT 

U HAS 1 LEADING BINARY ZERO. IN MOST MISSIONS, RN WILL BE SCALED AT 2< »29> , BUT IN THE 208 MISSION, RN WILL BE 
13 SCAiai AT 2<»24)M. 


0484 

REF 

1 



37,3141 

3 4720 

0 

nornlize cap 

THIRTEEN 

SET UP TO COPY 14 REGS- RNl,VNl,PIPTIMEl 

0485 

REF 

12 

LAST 

783 

37,3142 

0 5475 

1 

1C 

GB4TRAN 

INTO RN,VN, PIPTIf* 

0466 

REF 

T 

LAST 

T83 

37,3143 

01231 

0 

ADRBS 

INI 

FRCM HERE 

048T 

REF 

15 

LAST 

T83 

37,3144 

01170 

0 

adrbs 

RN 

TO HERB 

0488 





37,3145 

0 0003 

1 

RELINT 



0469 

REP 

203 

LAST 

T83 

37,3146 

0 6006 

1 

TC 

INTPRST 


04T0 





37,3147 

45175 

0 

VLOAD 

CALL 

LOAD RN FOR CALCGRAv 

04T1 

REF 

16 

LAST 

T85 

37,3150 

01171 

1 


RN 


04T2 

REP 

3 

LAST 

669 

37,3151 

77 256 

0 


CALOGRAV 

INITIALISE UN I TR RMAG GDTl 

0473 

REF 

3 

LAST 

680 

37,3152 

25207 

0 

STOVL 

GDT/2 


04T4 

REF 

2 

LAST 

78 

37,3153 

01256 

1 


GCBLl/2 


04T5 

REF 

3 

LAST 

680 

37,3154 

01215 

0 

STORE 

GCBL/2 


04T6 





37,3155 

77776 

1 

EXIT 



0477 

REF 

100 

LAST 

T84 

37,3156 

1 5112 

1 

TCP 

BTOOPJCB 
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P0478 ***** PIPA READER ***** 

*0479 MOD NO. 00 BY D. LICKLY DEC. 9 1966 

R0480 FUNCTIONAL DESCRIPTION 

*0481 SlBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RBSTARTABLE. 

*0*83 PIPA READINGS ARE STORED IN THE VECTOR D0LV. THE HIGH ORDER PART OP EACH CCMPCN0IT CONTAINS THE PIPA READING 

R0485 RESTARTS BEGIN AT REREADAC. 

*0486 AT THE END OP THE PIPA READER THE CDUS ARE READ AND STORED AS A 

*0487 VECTOR IN CDmEMp. THE HI® ORDER PART OP EA® COMPONENT CONTAINS 
*0468 THE (Du READING IN 2S CCMP IN THE ORDER CDUX.Y.Z. THE THRUST 
R0489 VECTOR ESTIMATOR IN FINDCDuD REOUIHES THE CDUS BE READ AT PIPTI*. 

R0490 CALLING SEQUENCE AND EXIT 

*0491 CALL VIA TC, ISWCALL, ETC. 

R0492 EXIT IS VIA 0. 

R0493 INPUT 

*0494 INPUT IS THROlXH THE COUNTERS PIPAX, PIPAY, PIPAz, AND TIMB2 

R0495 OUTPUT 

*0496 HI® ORDER COMPONENTS OP THE VECTOR DELV CONTAIN THE PIPA READINGS 

R0497 PIPTIM3 CONTAINS TIME OF PIPA READING. 

R0498 DEBRIS (ERASABLE LOCATIONS DESTROVED BY PROGRAM) 


R0499 



LOW ORDER DELV«S ARE ZEROED FOR TM 

INDICATION. 


ROSOO 



TBRX 

TEW 

TEMZ 

PIPAGE 



0501 





37,3157 

0 0006 1 PIPASR EXTEND 


0502 

REF 

26 

LAST 

736 

37,3160 

3 0025 0 

DCA 

TIMS2 

0503 

REF 

7 

LAST 

778 

37,3161 

53«246 1 

DX® 

PIPTIMEl 

0504 

REF 

151 

LAST 

783 

37,3162 

4 4714 0 

cs 

ZERO 

0505 

REP 

2 

LAST 

77 

37,3163 

55«224 0 

TS 

temx 

0506 

REF 

2 

LAST 

77 

37,3164 

55«225 1 

TS 

TORY 

0507 

REF 

2 

LAST 

77 

37,3165 

55«226 1 

TS 

TTMZ 


CURRENT TIME POSITIVE VALUE 
INITIALIZE THESE AT NEC ZERO. 
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0508 

REP 

152 

LAST 

786 

37,3166 

3 4714 

1 

0509 

REP 

5 

LAST 

779 

37,3187 

55-186 

0 

0510 

REP 

8 

LAST 

778 

37,3170 

55-184 

1 

0511 

HEP 

11 

LAST 

782 

37,3171 

55«163 

0 

0512 

REP 

7 

LAST 

787 

37,3172 

55-165 

0 

0513 

REP 

6 

LAST 

787 

37,3173 

55-167 

1 

A0514 








0515 

REP 

4 

LAST 

778 

37,3174 

55«230 

0 

0510 





37,3175 

0 0006 

1 

051T 

REP 

9 

LAST 

781 

37,3176 

4 0040 

1 

0518 

HEP 

3 

LAST 

786 

37,3177 

53-225 

1 

0519 

REP 

10 

LAST 

787 

37,3200 

52 040 

1 

0520 

REP 

12 

LAST 

787 

37,3201 

55-162 

1 

0521 

REP 

8 

LAST 

787 

37,3202 

23-164 

0 

0522 

REP 

3 

LAST 

430 

37,3203 

4 0041 

0 

0523 

HEP 

3 

LAST 

786 

37,3204 

57-226 

0 

0524 

REP 

4 

LAST 

787 

37,3205 

58 041 

1 

0525 

REF 

7 

LAST 

787 

37,3206 

55-166 

0 

0526 

REP 

170 

LAST 

692 

37,3207 

0 0002 

0 

0527 

REP 

24 

LAST 

779 

E8.1661 



0528 

REP 

3 

LAST 

649 

37 ,3210 

10 783 

1 

0529 





37,3211 

1 3213 

0 

0530 

REP 

44 

LAST 

781 

37,3212 

1 5213 

0 

05302 

REP 

3 

LAST 

529 

37,3213 

3 7665 

0 

05303 

REP 

11 

LAST 

T24 

37,3214 

55-074 

1 

*05304 








*05305 








*05306 








A0530T 








0531 

REP 

5 

LAST 

787 

37 , 3215 

11«230 

0 

0532 

REP 

4 

LAST 

779 

37,3216 

1 2647 

1 

0533 

REP 

1 



37,3217 

3 3255 

0 

0534 

REP 

171 

LAST 

787 

37,3220 

54 002 

1 

0535 

REP 

8 

LAST 

787 

37,3221 

11-186 

0 

0536 

REP 

172 

LAST 

787 

37,3222 

0 0002 

0 

0537 





37,3223 

1 3226 

0 

0538 

REP 

173 

LAST 

787 

37,3224 

0 0002 

0 

0539 

REP 

174 

LAST 

787 

37 , 3225 

0 0002 

0 


CA 

ZERO 


TS 

DELYZ 

OIHBR DBLVS etc INCLLDINO LOW ORDER 

TS 

DELVY 


TS 

DELVX »1 

LOW ORDER DELV-S ARE ZEROED FOR TM* TrtJS 

TS 

DELVY +1 

IP DNLNK-D LOW ORDER DELV3 ARB NZ, THEY 

TS 

DELVZ +1 

CONTAIN PROPER COMPENSATION. IP=0, THEN 
THE TM VALUES ARE BEFORE COMPENSATION. 

TS 

PI PAOB 

SHOW PIPA READING IN PROGRESS 

EXT®?® 

DCS 

PIPAX 

X AND Y PIPS READ 

DXCH 

TBWX 


DxCH 

PIPAX 

PIPAS SET TO NEG ZERO AS READ. 

TS 

DELVX 


LXCH 

DELVY 


CS 

PIPAZ 

REPEAT PROCESS FOR Z PIP 

XCH 

TFMZ 


XCH 

PIPAZ 


TS 

DELVZ 


TC 

O 


EBANK= 

AO 0 


CCS 

PHASES 

LAST PASS CHECK 

TCP 

*2 


TCP 

t*s<cver 


CAP 

PRI031 

RESTART MAY HAVE WIPED CUT LASWIAS, AN 

TS 

l/PIPADT 

UNPROTECTED NOVAC FRCM PREREAD, 
WHICH SETCS) UP l/PIPADT CIHUSLY) 

FOR NCN-CCA STING COMPENSATION BE 

SURE l/PIPADT IS ACX. (PRIO 3 I IS 



2.0SEC SC .AT B+sCS) 

CCS 

PIPAGE 


TCP 

READACCS 

PIP READING NOT STARTED. GO TO BEGINNING 

CAP 

DCNEADR 

SET UP RETUHN FROM PIPASR 

TS 

0 


CCS 

DELVZ 


TC 

0 

Z DONE, GO DO CDIJS 

TCP 

♦3 

Z NOT DONE, CHECK Y. 

TC 

0 


TC 

0 






1 
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0540 





0541 

■HR 

• 

LAST 

T8T 

0542 





0543 

bep 

1 



0544 





0545 

REE 

5 

LAST 

T8T 

0546 

■HE 

4 

LAST 

T8T 

054T 

■HE 

5 

LAST 

788 

0548 

■HR 

1 



0549 





0550 

HEP 

9 

LAST 

787 

0551 

■S' 

175 

LAST 

787 

0552 

■BP 

4 

LAST 

787 

0553 

0554 

■HE 

5 

LAST 

788 

0555 





0556 

■HE 

1 



055T 

REP 

13 

LAST 

787 

0558 

■BP 

3 

LAST 

786 

0559 

■HR 

10 

LAST 

788 

0560 

■BP 153 

LAST 

787 

0561 

HEP 

ii 

LAST 

787 

0562 

HEP 

i 



0563 

■HP 

i 




37,3228 

22 007 0 

n. 


37,3227 

11-164 1 

CCS 

DBLVY 

37,3230 

1 3233 1 

ICE 

♦3 

37,3231 

1 3242 1 

TCP 


37,3232 

1 3233 1 

TCP 

♦1 

37,3233 

22 041 1 

IXCH 

PIPAZ 

37,3234 

11-226 1 

CCS 

TEMZ 

37,3235 

4 1226 1 

cs 

TB4Z 

37,3238 

1 3208 1 

TCP 

DQDELVZ 

37,3237 

1 3235 1 

TCP 

-2 

37,3240 

23-166 1 

LXCH 

navz 

37,3241 

0 0002 0 

TC 

0 

37,3242 

11«224 0 

CHOEMX CCS 

TB4X 

37,3243 

4 1224 0 

CS 

TEMX 

37,3244 

1 3247 1 

TCP 

♦3 

37,3245 

1 3243 0 

TCP 

-2 

37,3246 

1 3175 0 

TCP 

IKPIP1 

37,3247 

55-162 1 

TS 

DELVX 

37,3250 

4 1225 1 

Cs 

TB4Y 

37,3251 

55«164 1 

TS 

DH.VY 

37,3252 

4 4714 0 

Cs 

ZERO 

37,3253 

52 040 1 

OXCH 

PIPAx 

37,3254 

1 3203 1 

TCP 

HBPIP3 


37,3255 02650 0 DCNEADR CENADR PIPSDCNE 
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Y NOT DCNB, OECK X. 

Y DONE, ZERO 2 PIP. 


TEMz NOT s -o, CONTAINS -PIPAz VAUJB 


T&te = -0, L HAS ZPIP VALUE 


HAS THIS CHANGH) 

YES 

YES 

YES 

NO 


ZERO x AND Y PIPS 
L STIt-L ZERO FRCM ABO/E 

m 
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R05S4 

R056S 

R0568 

R0569 

R05T1 

R0572 

R0573 

R0575 

R0578 

H0577 

R0579 

R0581 

R0583 


SERVICBR207 


US8R»S PACE NO. 17 


Bo S3 








ROUTINE CALCevO INTEGRATES THE EOUATICNS OP MOTICN BY AVERAGING THE THRUST AND GRAVITATICNAI. 
ACCELERATIONS OVER A TB« INTERVAL OP 2 SECONDS. 

FOR WE EARTH-CStTBRED GRAVITATIONAL FIELD, THE PERTURBATION DUE TO OBLATENESS IS COMPUTED TO THE FIRST 
HARMONIC COEFFICIENT J. 

ROUTINE CALCrvG HEOUIRES. . . 

1» THRUST ACCELERATION INCREMENTS IN DELV SCAL03 SAMS AS PIPAX,Y,Z IN STABLE NBOER COOBDS. 

2> VN SCALED 2(»7>M/CS IN REFERENCE COORDS. 

3» RN SCALED AT 2<+29> METERS IN REFERENCE COORDS. 

4> WIT* WB EARTH S UNIT ROTATIONAL VECTOR (SCALED AS A PULL UNIT VECTOR) IN REFERENCE COORDS. 


IT LEAVES mi UPDATED (SCALED AT 2<<-29>M, VNl (SCALED AT 2( +7 >M/CS> , AND GDTl/2 (SCALED AT 2(VT)M/CS). 
UNIT VECTOR UNITR, RMAG IN 3SD SCALED AT 2(+29>M, R MAG SO. IN 34D SCALED AT 2U58> M SO. 

enter with m in mpac 


ALSO HALE 


0584 





37,3258 

41456 

0 

CALOGRAV UNIT 

pum 

0585 

REF 

1 



37,3257 

01760 

1 

STORE 

UNITR 

0586 





37,3260 

67340 

1 

LXC,1 

SLOAD 

0587 

REF 

14 

LAST 

680 

37,3281 

03746 

1 


RTX2 

05871 

REF 

34 

LAST 

741 

37,3282 

00047 

1 


XI 

0580 





37,3283 

77240 

1 

RMN 

VLOAD 

05881 

REF 

1 



37,3264 

77312 

1 


ITISMOCN 

0589 





37,3265 

41441 

0 

DOT 

PUSH 

0590 

REF 

8 

LAST 

766 

37,3266 

01714 

1 


IJNJTW 

0591 





37,3287 

44316 

0 

DSO 

BDSU 

0592 

REF 

1 



37,3270 

37364 

1 


DPl/20 

0593 





37,3271 

56325 

0 

POOL 

DDV 

0594 

REP 

1 



37,3272 

37366 

0 


RE SO 

0595 





37,3273 

00043 

0 


34D 

0596 





37,3274 

00041 

1 

STORE 

32D 

0597 





37,3275 

41205 

0 

DMP 

DMP 

0598 

REP 

1 



37,3276 

37370 

1 


20J 

0599 





37,3277 

65361 

0 

VXSC 

PDDL 

0600 

REF 

2 

LAST 

789 

37,3300 

01760 

1 


UNITR 

0601 





37,3301 

41205 

0 

DMP 

DMP 

0602 

REP 

1 



37,3302 

37372 

0 


2J 

0603 





37,3303 

00041 

1 


32D 

0604 





37,3304 

53361 

0 

VXSC 

VAD 

0605 

REP 

9 

LAST 

789 

37,3305 

01714 

1 


UNIT* 

0606 





37,3306 

77626 

0 

stadr 


0607 

REP 

3 

LAST 

785 

37,3307 

76521 

0 

STORE 

GCBLl/2 

0608 





37,3310 

41455 

0 

VAD 

PUSH 

0609 

REF 

3 

LAST 

789 

37,3311 

01760 

1 


UNITR 

0610 





37,3312 

.60345 

0 

ITISMOCN DtXAD 

NORM 

0611 





37,3313 

00043 

0 


34D 

0612 

REF 

14 

LAST 

741 

37,3314 

00050 

1 


X2 

06121 





37,3315 

53663 

1 

BDDV* 

SLR* 


(RN)SO 

tbmp for (RE/m)so 



I „ 


l 

SBRVICER207 







USERaS PAGE NO. 18 Be S3 

08122 

REP 

1 



37,3316 

37356 

0 




0813 





37,3317 

56623 

0 



0 - 2 lD ,2 

0614 





37,3320 

45561 

1 


vxsc 

SWDR 

0615 

REP 

a 

last 

77 

37,3321 

76527 

0 


STORE 

CDTl/2 SCALED AT 2(+T> M/CS 

0616 





37,3322 

77616 

0 


RVO 


0622 





37,3323 

74375 

0 

CALCRVO 

VLCAD 

VXSC 

0623 

REP 

0 

LAST 

782 

37,3324 

01163 

1 



DELV 

0624 

REP 

2 

LAST 

782 

37,3325 

37354 

1 



KPIPl 

0625 





37,3328 

76505 

0 


VXM 

VS ,1 

0626 

REP 

32 

LAST 

772 

37,3327 

01736 

1 



RBFS'MAT 

062T 

REP 

7 

LAST 

677 

37,3330 

03433 

0 


STORE 

DGLVHEP D&V IN REP COORDS AT 2(+T> 

0628 





37,3331 

41562 

0 


VSRl 

PUSH 

0629 





37,3332 

41455 

0 


VAD 

PUSH (DV-0LDGDT)/2 TO PD SCALED AT 2 (+ 7 >M/CS 

0630 

REP 

4 

LAST 

785 

37,3333 

01207 

0 



GOT / 2 

0631 





37,3334 

74255 

0 


VAD 

VXSC 

0632 

REP 

12 

LAST 

758 

37,3335 

01177 

1 



VN 

0633 

REP 

1 



37,3336 

37362 

1 



2 SEC( 22 > 

0634 





37,3337 

44055 

1 


VAD 

STO 

0635 

REP 

17 

LAST 

785 

37,3340 

01171 

1 



RN 

0636 





37,3341 

00037 

0 



3lD 

06 3T 

REP 

B 

LAST 

785 

37,3342 

35232 

1 


SICALL (WI TEMP STORAGE OP M SCAlED 2<+29>M 

0638 

REP 

4 

LAST 

785 

37,3343 

77256 

0 



CAI/X3RAV 

0639 





37,3344 

53255 

0 


VAD 

VAD 

0640 





37,3345 

77655 

1 


VAD 


0641 

REP 

13 

LAST 

790 

37,3348 

01177 

1 



VN 

0642 

REP 

3 

LAST 

529 

37,3347 

35240 

1 


STCALL 

VNl UMP STORAGE OF VN SCALED 2 <+ 7 >M/CS 

0643 





37,3350 

00037 

0 



31» 

0644 





37,3351 

03215 

1 

KPIP 

2 Dec 

.1024 SCALES DELV TO 2 (+ 4 > 

0644 





37,3352 

27057 

0 




0645 





37,3353 

02312 

0 

KPIPl 

2 DEC 

0.074880 207 DELV SCALING. 1 PULSE = 5.85 CM/SEC 

0645 





37,3354 

32537 

1 




0646 





37,3355 

61377 

0 

-MUDT(E) 

2 DEC* 

-7.9720645 E +12 B -444 

0646 





37,3356 

55754 

1 




064T 





37,3357 

77644 

1 

-mpt<m) 

2 DEC* 

-9.B0555B E +-10 B- 44 * 

06 4T 





37,3360 

65556 

1 




0648 





37,3361 

00000 

1 

2 SEC( 22 > 

2 DEC 

200 B -22 

0648 ■ 





37,3362 

31000 

0 




0649 





37,3363 

01463 

1 

DPi /20 

2 DEC 

0.05 

0649 





37,3364 

06315 

0 




0650 





37,3365 

00001 

0 

RE SO 

2 DEC* 

40.6809913 B 12 B- 59 * 

0650 





37,3366 

05000 

1 




0651 





37,3367 

02047 

0 

20J 

2 DBC* 

3.24692010 S -2 Bj* 

0651 





37,3370 

36332 

0 




0652 





37,3371 

00152 

1 

2J 

2 DEC* 

3.24692010 B -3 Bj* 

0652 



/ 


37,3372 

14511 

1 







